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BARRIER OPERATOR HAVING SYSTEM 
FOR DETECTING ATTEMPTED FORCED 
ENTRY 

This application is a continuation of application Sct. No. 5 
0$M43.17S filed May 17. i99k nou- abandoned. 

BACKGROUND OF THE INAXNTION 
The invention relates, in general, to barrier operators and. 
in particular, to a garage door operator including a system jc 
for detecting u hcn an ancmpt is made to force open a closed 
garage door. 

Several garage door operator systems are available on the 
market for maintaining a garage door cither in a closed or 
open position. It is clear that the systems should be relatively n 
easy to use and should be able to open the door relatively 
rapidly to allow quick and easy access to the garage. In 
addition, many systems are provided which include 
detectors, pressure detectors and tht like that sense when the 
garage door is being brought down and the bottom edge of 2C 
the door comes in contaa wiih an obstacle prior to the door 
reaching the fully closed position. These systems are impor- 
tant because they prevent the garage door from closing on 
people, pets or small objects and, therefore, prevent personal 
injury' and propcru* damage. One of the drawbacks of such 25 
systems, ho^^evc^. is thai for some such systems, when thc^ 
door has been closed, if a lifting force is applied lo the door, 
for instance by an unwanted intruder grabbing the handle of 
the door and attempting to raise it by jacking the door or the 
like, some systems through a force mcasurcmcm routine. 30 
automatically cause the door to be opened, in order to 
prevent what the garage door operator senses might be 
potential harm. Of course, if the person operating the door 
is auerapting to break and enter the garage for nefarious 
purposes and it is important that while the system prevents 35 
hanu. the system also be provided such that iie door cannot 
be forced open if the operator does not want it lo be and if 
no persons or property are in danger. 

A system available from the Stanley Company provides a 
garage door operator having upper travel limit and lower 4C 
travel limit switches associated therewith. The switches may 
be sct or moved so that the limits of iravc] may be diangcd. 
In the Stanley system, for instance, if the door has reached 
a nominal closed position and the operator has its down limit^ 
switch position changed, the door will actually dynamically' 45 
track changes in the switch position and open or close 
according to switch commands. 

Mechanical systems may be available that in effect, jam 
the door closed: however, once these syr ems are placed in 
effect, if a person not knowing that the door is down and ^ 
effectively mechanically locked attempts lo open the door 
the garage door operator then attempts to lift the door against 
the locking mechanism and the garage door operator may be 
inadvertently damaged thereby or. at the very least, not open 
the door because it is locked. 55 

Vir'hat is needed then is a system which provides a sensing 
modalit>' for a garage door or other barrier operator which, 
while maintaining all $afet>' features to prevent personal 
injury or propert)* damage due to unwanted closing of the 
door, nevertheless senses when an intruder attempts to open ^ 
the door and prevents the door from being opened by a 
positive drive force provided by the garage door operator 
motor 

SUMMARY OF THE INVEJmON ^5 
The invention rclaies. in genaal, to a barrier system 
operator and. in particular, to a garage door operator which 
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uhiie hax-ing all safcr>- features for prevenung personal 
injur)' and propem' damage due to inadvenent clo'sing of the 
garage door, nevertheless pro\ides a positively actuated 
door closure system v-hich prevents forcing the door once it 

5 has closed v.ithout having detected any objects underneath 
it The system includes a barrier dlrive including an electric 
motor which may be connected lo a bell, chain or screw 
drive. Means are provided for detecting motion of the 
movable barrier. These means may include a motor 
tachometer- upper and lower limit sw.' itches and the like 
Means are also provided for detecting when a barrier com- 
mand signal has been gi\ en to the barrier drive so that when 
a door has been commanded by a radio frequency control, 
the keypad control, indoor wired control or the like to open, 
the door may be automatically opened. The system also 

^' includes a storage device for storing the commanded state of 
the barrier drive which may be a microcontroller or a 
microprocessor in combination with a memor> or some 
other integrated circuit device capable of storing digital or 
analog information The commanded state is stored^and is 

2C then compared in a comparator means with the position 
-indicated by the barrier detection. In the event that the 
comparison of the barrier state signal and the barrier position 
signal indicates that the system alread> has been in a 
lowered position, usually for given time intervals, such as 27 

25 seconds and anempt is made to raise the door causing 
unwanted motion of the door when there has been no up 
command given, an alarm signal is generated which ma\ be 
passed through electronic and electromechanical logic to the 
door motor causing the door motor to provide thrust to the 
door to hold the door in the closed position. 

In the alternative, the system may also provide a signal to 
operate a visual or audio alarm or to call over a telephonic 
or other wired system to a police department or to a securit>' 
service to indicate that the system is being broken into 

It is a principal object of the present invention to provide 
a barrier operator for opening and closing a movable bamer 
which includes an electronic system for deieaine when 
forced entrv- is being anempted on the carrier and for 
preventing the barrier from being opened. 

^ Other objects of this invention vk*il] become obvious to 
one of ordinarv' skill in the an upon a perusal of the 
following specification and claims in light of the accompa- 
nying drawings 

BRIEI; DESCRIPTION OF THE DRA^ISGS 
^' no. 1 is a perspective view of an apparatus comprising 
a garage door operator and embodying the present invention: 
FIG. 2 is a block diagram of a portion of the head unit and 
associated controls of the apparatus shown in FIG. 1: 
^ FIG. 3 is a schematic diagram showing details of the 
circuit shown in FIG. 2: 

FIG. 4 is a fiov^' chan of a top level flow diagram for the 
apparatus embodying the present invention: 

FIG. 5 is a flow diagram of an upper limit routine: 
55 FIGS 6A and 6B are a flow diagram controlling travel 
upward: 

FIG, 7 is a flow diagram of a down limit routine: 
FIGS 8 A and 8B arc a flow chan of a downward or 

closing movement routine: 
^ FIG. 9 is a fiovx chan of a barrier closed routine: and 
FIG. 10 is a flow chart of an auto-reverse time delay 

routine. 

DET.AILED DESCRIPTION OF THE 
65 PREFERRED EMBODIMENT 

Referring now to the drawings and especially to FIG. 1. 
more s|>ccifically a movable barrier door operator or garage 
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door operator is generally shov. n iheieiD and includes a head 
unit 12 mounted within a garage 14 More specifically, the 
head unit 12 is mounted to the ceiling of the garage 14 and 
includes a raii 18 extending therefrom with a releasable 
troUes 20 attached having an arm 22 extending to a muitipie 5 
paneled garage door 24 positioned for movemcm along a 
pair of door rails 26 and 28 The system includes a hand-held 
iransminer unit 30 adapted to send signals to an antenna 32 
positioned on the head unit 12 and coupled 10 a recei\er as 
will appear hereinafter An external control pad 34 is posi- 
tioned on the outside of the garage having a piuraiit> of 
bunons thereon and disposed to communicate via radio 
frequency transmission \^'ith the antenna 32 of the head unit 
12. An optical eminer 42 is connected via a pou er and signal 
line 44 to the head \imt. An optical detector 46 is connected j ^ 
\ia a wire 48 to the head unit 12. 

The head unit 12 has a wired wall control panel 43 
connected to ii via a line or wire 43a, as is shown in FIG, 2. 
More specifically, the wall control panel 43 is connected to 
a charging circuit 70 and a discharging circuit 72 coupled via 2c 
respective lines 74 and 76 to a wall control decoder 78. The 
wall control decoder 78 decodes closures of a plurality of 
switches 80. 82 and 84 in the wail circuit The wall control 
panel also includes a light emitting diode 86 connected by a 
resistor 88 to the line 43g and to ground. Switch 80 is the 25 
command switch, switch 82 is the work light switch and 
suitch 84 is the vacation switch. Switch closures arc 
decoded b> the wail decoder 78 which sends signals along 
lines 90 and 92 to a motor control 94 coupled via motor 
control lines 96 to an electric motor 98 positioned within the 3c 
head unit. A tachometer 100 receives a mechanical feed from 
the motor 98 and provides feedback signals on lines 102 to 
the motor controller. 

The receiver unit also includes an antenna 110 coupled to 
receive radio frequenc>- signals cither from the fixed RF 35 
keypad 34 or the hand-held transmitter 30. The RF signals 
are fed to a radio fi-equencs receiver 112 where they are 
buffer amplified and supphed to a bandpass circuit 114 
u'hich outputs lou frequency signals in the range of 1 Hz to 
1 kHz. The lou frequency signals are fed to an anaJog-to- 4C 
digital convener 116 thai sends digitized code signals to a 
radio controller 118 The radio controllcx 118 is also con- 
nected to receive signals from a non-voktile memorv* 120 
over a non+ volatile memory bus 122 and to communicate via 
lines 124 and 126 with the motor controller 94. A timer 128 '45 
is also provided, coupled via lines 130 with the radio 
controller, a line 132 with the motor controller and a line 134 
with the wall control decoder 78. A barrier travel limit 
detection device 190 includes an up limit deteaor 190^ and 
a down limit detcacw 190i> that sends signals to pins P20 and 50 
P21 of the raicrocontroUeT 282. The obstacle detectOT com- 
prising the emitter 42 and detector 46 send signals to pins 
P03 and P30 of the microcontroUer 282 indicating when an 
obsuclc is blocking the path of the door. 

Referring nou to FIG. 3. the system shown in FIG. 3 is 55 
shown therein with the antenna 110 coupled to a reactive 
divider network 250. comprised of a pair of scries connected 
inductances 252 and 254 and capacitors 256 and 258. which 
supplies an RF signal to the buffer amplifier 112 having an 
NPN transistor 260 connected to receive the RF signal at its 6C 
emitter 261, The NPN transistor 260 has a capacitor 262 
connected to it for power supply isolation. The buffer 
amplifier 112 provides a buffered radio frequency output 
signal on a lead 268. The buffered RF signal is fed to an 
input 270 which forms pan of a super-regenerative receiver 65 
272 having an output at a line 274 coupled to the bandpass 
filter 114 which provides output 10 a comparator 278. The 
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bandpass filter 114 and analog-todigitaJ convener provide a 
digital level output signaJ at a lead 280 which is supplied to 
an input pin P32 of an 8-bit Zilog microcontroller 282. 
The microcontroller 282 may have its mode of operation 
5 controlled by a programminc or learning su-itch 300 posi- 
tioned on the outside of the head unit 12 and coupled via a 
line 302 to the P26 pin of the microcontroller 282. The u ired 
conuol panel 43 is connected via the lead 43^7 to input pins 
P06 and P07. The microcontroDer 282 has a 4 MHz crystal 
328 connected to it to provide clock signals. A force sensor 
330 includes a bridge circuit having a potentiometer 332 for 
setting the up force and a potentiometer 334 for setting the 
dou n force, respectively connected to inverting terminals of 
a first comparator 336 and a second comparator 338. The 
15 comparator 336 sends an up force signal over a line 339a 
The comparator 338 sends a down force signal over the line 
339 fc, respectively to pins P04 and P05 of the 8-bit micro- 
controller 282. Although details of the operation of the 
microcontroller in conjunction with other portions of the 
2C xircoit will be discussed hereinafter, it should be appreciated 
that the POl pin of the microcontroller is connected via a 
resistor 350 to a line 352 which is coupled to an NPN 
transistor 354 that controls a light relay 356 which may 
supply ciiirent via a lead 358 to a light in the head unit or the 
^- like. Similarly, the pin POOO feeds an ou^ut signal on a line 
360 to a resistor 362 which biases a base of an NPN 
transistor 364 to cause the transistor 364 to conduct, drawing 
current through the coil of the relay an up relay 366 causing 
an up motor command to be sent over a line 96 to the motor 
3C 98. Finally, the P02 pin sends a signal through a line 370 to 
a resistor 372 via a line 374 to the base of an NPN transistor 
376 connected to control current through a coil of a down 
control relay 378 which is coupled by one of the leads to the 
motor 98 to control motion of the motor 98. 
^' Electric power is received on a hot AC line 390 and a 
neutral line AC line 392 \^hich are coupled to a transformer 
393 at its primaPr winding 394. The AC is stepped down at 
a secondai)' winding 395 and is full wave rectified by a fuD 
wave rectifier 396. It may be appreciated that, in the 
^ alternative, a half wave rectifier itiay also be used. 

A pluraiiry of filter capacitors 398 receive the full wave 
rectified fluctuating volugc and remove some transients 
from the voltage supplying a voltage with reduced fiuctua- 
tion to an input of a voltage regulator 400. The vohage 
regulator 400 produces a 5-volt output signal available at a 
lead 402 for use in other portions of the circuit. 

Referring now to FIG- 4. a top level routine is shown 
therein which is entered every two milliseconds upon at 
5C timing interrupt in a step 500 The routine then enters a 
variet)' of other routines depending upon the value of a sute 
number. When the state number is 2 an upper limit routine 
is entered in a step 502. If the state number is 1. a traveling 
up routine is entered in a slate 504. If the stale is 5. a down 
55 limit routine is entered in a step 506. If the state is 4. a 
traveling down routine is entered in a step 508. If the sute 
is 6. a barrier halt or stopped in middle routine is entered in 
a step 510. If the state is 0. an auto-reverse time delay routine 
is entered in a step 512. Vt'hcD any of the aforementioned 
5^ routines 502 through 512 are exited, a return step 514 is 
entered and other portions of code not pertinent to this 
invention are executed. 

In the event that the state equals 2. the routine 502 is 
entered as may best be seen in FIG. 5 wherein the upper limit 
65 switch has indicated thai the door has reached the upper end 
of its authorized travel, the motor is switched off and a 
watchdog timer is started in a step 514. The work light 
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commanci flag is set in siep 516 to toggle the work light od. 
Id a step 518. a radio command or wall coQtrol command 
flag is tested for and. if set. the state is set to 4. In a step 520. 
the routine is exited and return is switched to the step 514. 
It the event that the state has been set equal to 4. in step 518 5 
at the next 2 roiliisecond interval, control is transferred to the 
routine 508. 

In the event that the state has been set equal to L control 
is transferred to a barrier traveling up or a barrier opening 
routine shown in FIGS. 6A and 6B. In a step 522. the work ic 
light is turned on and in the event that the light v^as off. a 
dela> of 40 milliseconds is then provided to turn on the up 
motor output, the down motor output is turned off and the 
hold door closed fiag is cleared. In a step 524. after a start 
up delay of 1 second the rpm period of the tachometer is 15 
tested against the look up force and if the rpm period is too 
brief, a state is set to indicate that the door has stopped in 
mid tra% el. In a step 526. a test is made to dctcnninc whether 
the one second timer has exceeded one second and whether 
the rpm period is below the set force limit indicating that the 2c 
door has been halted in an unwanted manner. If it is not. 
control is transferred to a step 528 wherein the suie variable 
is set to 6. following which the routine is exited in a step 530. 
In the event that the derision in step 526 is positive, the up 
limit input is tested. If the voltage is low. it is increased. If 25 
it is high, the debounce is decreased. Control is then trans- 
ferred to a test step 532 to test whether the limit debounce 
is greater than 24 milliseconds. If it is. the state is set equal 
to 2 in a step 534 and the routine is exiled in a step 536. If 
the limit debounce is less than 24 milliseconds, control is 3c 
transferred to a step 540 where a 27 second time out is 
decremented and tested for. If the time out is zero, the slate 
is set as indicating that the door has stopped in mid travel. 
A step 542 is executed to test for either a radio or wail 
control command flag having been set and. if so. the state is 35 
set as stop in mid travel. The routine is then executed in a 
step 544 

In the event that the state has been set equal to 5. a routine 
506 to handle down Uiiiits. as shown in FIG. 7. is entered. 
In a step 550. a hold door closed flag is tested to determine 4C 
whether it is set or not. If it is not seu control is transferred 
to a step 552 to determine whether the 27 seconds timer has 
timed out following the down limit having been set. indi- 
cating that the door has safely closed and did not contact an 
obstruction or obstacle. In the event thai the hold door closed '45 
fiag has been set. as tested for in step 550, control is 
transferred to a step 554 testing whether the down limit 
indicates the door is open and whether the motor has been 
given enough current or turned or long enough lo provide 10 
rpra pulses. In the event that the 27 second clock has not 5c 
been timed out as indicated by step 552. control is trans- 
ferred to a step 556. switching the motor off. and starting a 
watchdog timer Control is then transferred to a step 558 to 
determine if the work light command flag has been set and. 
if it has. the work light is toggled. Control is then transferred 55 
to a step 560. testing for whether there is a radio command 
or wall control command flag. If so. the state is set equal to 
1 and the routine is exited in a return step 562, In the event 
thai the down Uradt docs not indicate that the door is open 
and the motor has been turned enough to give 10 rpm pulses. 6C 
control is transfened to a step 564 setting the state equal to 
4 and setting the hold door closed flag. The state equal 4 
indicates that the door is to be traveling down, thereby 
causing the barrier lo close after the 27 second limit has 
timed out gj 

In the event the state has been set equal to 4 to command 
the door to travel down, the routine 508 is entered as shown 
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in FIGS. 8A and SB. In a step 570. the work light is tumed 
on. and if the light had previously been off. a delay of 40 
miilisecoDds occurs following which down motor output is 
turned on and the up motor output is turned off. the watch- 
5 dog is also started In a step 572. a test is made to determine 
whether the 1 second timer has exceeded 1 second and 
whether the rpm period is indicative of a force limit having 
been exceeded. If so, indicating that the door is stalled on an 
obstacle, control is transferred to a step 574. setting a slate 
ic equal' to zero and the routine is exited in a step 576. If the 
door has not been indicated to be stalled by the step 572. . 
control is transferred to a step 57S testing the status of the 
down limit input. If it is lo\\. the dcbouncc is increased. If 
it is high, the debounce is decreased. In a step 580. the limit 
15 dcbouncc is tested to determine whether it is greater than or 
equal to 24 millisecoDds. If it is. the state is set equal to 5 ia 
a step 582 and the routine is exited in a step 584. If it is not. 
the 27 second time out is decremented and tested to deter- 
mine if it is zero. If it is zero, the state is set equal to zero 
2C jn a step 586. In a step 588. a test is made to determine 
whether the radio or wall control command fiag has been set 
and, if so. the state is then set equal to 6. In a step 590. as 
shown in FIG. 8B. the timer associated with the optical 
detector is tested to determine whether it is greater than 10 
25 milliseconds and. if it is. indicating that an obstacle is 
blocking the light path, the slate is set equal to zero to caifse 
the auto-reverse routine 512 to be entered following exiting 
from this routine. It will be entered on the next interrupt 
which is in less than 2 milliseconds. Control is then trans- 
3C f erred to a step 592. testing whether the motor speed 
indicated that the door had been forced upward If it is not. 
thc routine is exited in a step 594. If the rpm sensing 
indicates that the door has been forced upward, a test is made 
in the step 596 to determine if the command is still vahd 
35 indicating the door is to move upward. If it is not. control is 
transferred to a step 598 setting the sute equal to zero which 
will cause the door to auto reverse and move down. Control 
is then transferred to a step 600 exiting the routine. 
In the event that the state has been set equal to 6. the 
^ routine 510 shown in FIG. 9 is entered. A test is made to 
determine whether the motor motion indicates that the door 
has been forced upward. If so. a flag is set to turn off the light 
and the electric motor is switched off and the watchdog is 
started. If the work light command flag has been set in a step 
604. the wOTk light is then toggled. In a step 606. a test is 
made to determine whether tiie radio command or wall 
control command flag has been set and. if it has, the sute is 
then set equal to 4 which will cause entry of the traveling 
down routine 508. The routine is then exited ii: a step 608. 
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In the event that the state has been set equal to zero 
indicating that an auto reverse is to be commanded, the 
routine 512 is entered in a step 620, the motor is turned off 
and a watchdog Uma is started. In the step 622. the delay 
timer is decreased and if 0.5 seconds has expired the sute 
is set equal to 1 to cause the door to travel upward on the 
next 2 millisecond interrupt , In a step 624, a test is made for 
the radio command or wall control command fiag being scl 
If it has. the stopped in middle routine 510 will be entered 
^ on the next interrupt The routine 512 is then exited in a step 
626. 

While there has been illustrated and described a particular 
embodiment of the present invention, it will be appreciated 
thai numerous changes and modificatioDS will occur to those 
63 skilled in the art. and it is intended in the appended claims 
to cover all those changes and modifications which fall 
within the true spirit and scope of the present invention. 
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NON-VOL MEMORY MAP 


00 A1 

01 Al 

02 A2 

03 A2 

04 A3 

05 A3 

06 A4 

07 A4 

08 A5 

09 A5 
OA A6 
OB A6 
OC A7 
OD A7 
OE A8 
OF A8 

10 A9 

11 AS 

12 A10 

13 A10 

14 A11 

15 Atl 

16 A12 

17 A12 

18 B 

19 B 
1A C 
IB C 

1C CYCLE COUhTTER 1ST 16 BITS 

ID CYCLE COUt^ER 2ND 16 BfTS 

IE VACATION FLAG 

1 F A MEMORY ADDRESS 1>ST WRITTEN 
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20-2F OPERATION BACK TRACK 
303F FORCE BACK TRACE 


RS232 DATA 


INPUT 
30H 


31H 


32H 

33H 

34H 
35H 
36H 
37H 


OUTPUT 

SWITCH STATUS 


xxxxxxxo 

XXXXXXX1 

xxxxxxox 

XXXXXX1X 
XXXXXOXX 
XXXXX1XX 
XXXXOXXX 
XXXX1XXX 
XXXOXXXX 
XXXI XXXX 


UP LIMIT OPEN 
UP LIMIT CLOSED 
DOWN LIMIT OPEN 
DOWN LIMiT CLOSED 
COMMAND OPEN 
COMMAND CLOSED 
WORKLIGHT OPEN 
WORKLIGHT CLOSED 
VACATION OPEN 
VACATION CLOSED 


SYSTEM STATUS 

XXXXSSSS STATE DATA 

XXXOXXXX NOT IN LEARN MODE 

XXX1XXXX IN LEARN MODE 

XXOXXXXX NOT IN VACATION MODE 

XX1XXXXX IN VACATION MODE 

XOXXXXXX LIGHT OFF 

X1XXXXXX LIGHT ON 

OXXXXXXX AOBS OK 

1XXXXXXX AOBS ERROR 

RPM PERIOD 
RETURNED HIGH BYTE 
RETURNED LOW BYTE 

FORCE 

RETURNED DOWN FORCE 
RETURNED UP FORCE 

RADIO MEMORY CODES PAGE 00 
32 BYTES 

RADIO MEMORY CODES PAGE 10 
32 BYTES 

OPERATION HISTORY PAGE 20 
32 BYTES 

FORCE HISTORY PAGE 30 , 


38H 


MEMORY TEST AND ERASE ALU' 

00 OK 
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FF ERHOR 
39H SET PROGRAM MODE 


REASON 

00 COMMAND 

10 RADtO COMMAND 

20 FORCE 

30 AUX OBS 

40 A REVERSE DELAY 

50 LIMIT 

50 EARLY imi 

70 MOTOR MAX TIME. TIME OUT 

80 MOTOR COMMANDED OFF RPM CAUSING AREV 

90 DOWN L. jIIT WITH COMMAND HELD 

AO DOWN LIMIT WITH THE RADtO HELD 

BO RELEASE OF COMMAND OR RADIO AFTER A FORCED 

UP MOTOR ON DUE TO RPM PULSE WITHG MOTOR OFF 


STATE 

00 AUTORE VERSE DELAY 

01 TRAVELING UP DIRECTION 

02 AT THE UP LIMIT AND STORED 

03 ERROR RESET 

04 TRAVELING DOWN DIRECTION 

05 AT THE DOWN LIMIT 

06 STOPPED IN MID TRAVEL 


DIAG 


1) AOBS SHORTED 

2) AOBS OPEN / MISS ALIGNED 

3) COMMAND SHORTED 

4) PROTECTOR INTERMITTENENT 

5) CALL DEALER 

A) NO RPM IN THE FIRST SECOhO 

B) RPM FORCED A REVERSE 
C) 


DOG2 


DOG 2 IS A SECONDARY WATCHDOG USED TO 

RESET THE SYSTEM IF THE LOWEST LEVEL •MAtNLOOP*' 

IS NOT REACHED WFTHIN A 3 SECOND 
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EQUATE STATEMENTS 


check_surri_vatije 


09AH 

TIMER 0 

.EOU 

10H 

TtMER 0 EN 

.ECU 

03H 

TiMER_1_EN 

-EOU 

OCH 

MOTOR HI 

.EQU 

034H 

MOTOR LO 

.EQU 

OBCH 

PWM_CHARGE 

.EQU 

OOH 

PWM DISCHARGE 

.EQU 

01 H 

UGHf 

.EQU 

OFFH 

LIGHT ON 

-ECU 

02H 

MOTOR_UP 

.EQU 

01 H 

MOTOR DN 

.EQU 

04H 

DN^UMIT 

.EQU 

02H 

UP~LIMIT 

.EQU 

01 H 

DIS £W 

-EQU 

10000000B 

CDiS_SW 

.EOU 

01111111B 

SWITCHES 

,EQU 

01000000B 

CHARGE SW 

.EQU 

00100000B 

CCHARGE SW 

,EQU 

110111118 

PWM HI 

.EQU 

10H 

COMPARATORS 

.EQU 

30H 

DOWN COMP 

EQU 

20H 

UP COMP 

.EQU 

10H 

PWM_DiS 

-EQU 

20H 

PO^U iNlT 

.EOU 

01000100B 

P2M iNlT 

.EOU 

Q1100011B 

P3M INlT 

-EQU 

00000011 B 

P01S INlT 

.EQU 

0000001 OB 

P2S IN IT 

.EQU 

lOOOOOIIB 

P3SJNIT 

.EQU 

OOOOOOOOB 

FLASH 

.EQU 

OFFH 

WORKUGHT 

.EQU 

02H 

COM CHARGE 

.EQU 

2 

WORK CHARGE 

,EQU 

20 

VAC^CHARGE 

.EQU 

80 

COM DIS 

EQU 

01 

WORK DiS 

.EOU 

04 

VAC.DIS 

.EQU 

24 

CMD TEST 

.EQU 

00 

WL TEST 

•EQU 

01 

VAC TEST 

.EQU 

02 

CHARGE 

.EQU 

03 

AUTO REV 

.EQU 

OOH 

UP DIRECTION 

.EOU 

01 H 

UP POSITION 

.EOU 

02H 

DN DIRECTION 

.EQU 

04H 


: set mode p00-p03 out p04-p07rn 

; set port3 p30-p33 input ANALOG mode 
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0N_P0S!TiON 

STOP 

CMD^SW 

LiGHT_SW 

VAC_SW 


EQU 05H 

EQU 06H 

EQU 01H 

EQU 02H 

.EQU 04H 


PERIODS 


LIMIT cour^ 

.EQU 

OFH 

AUTO HI 

EQU 

OOH 

AUTO LO 

.EQU 

0F4H 

M!N_COUNT 

.EQU 

04H 

TOTAL PWM COUNT 

.EQU 

03FH 

FLASH H! 

EQU 

OOH 

FLASH LO 

-EQU 

07AH 

SET TIME HI 

.EQU 

02H 

SET TIME LO 

.EQU 

02H 

SET TIME PRE 

.EQU 

OFBH 

ONE SEC 

.EQU 

0F4H 

CMD WAKE 

.EQU 

8D 

CMD BREAK 

.EQU 

(255D-8D) 

LIGHT MAKE 

.EQU 

8D 

LIGHT BREAK 

.EQU 

(255D-8D) 

VAC MAKE OUT 

EQU 

4D 

VAC BREAK OUT 

.EQU 

(25504D) 

VAC MAKE IN 

.EQU 

2D 

VAC_BREAK_!N 

EQU 

{2&5D-2D) 

VAC DEL 

EQU 

8D 

CMD DEL EX 

.EQU 

40 

VAC DEL "ex 

.EQU 

SOD 


. limil debounce 1 way 32mS 
- , aulo rev timer 5 sec 

; pwm start point 

; pwm end « stati + 4*total-1 

, 25 sec ftasht 

,4.5MIN 
;4.5 MIN 
;4 5 MIN 

, WITH A /2 IN FRONT 

. cyde count *lOmS 

; cycle count *1 ImS 

, cycle count *100mS 


PREDEFINED REG 


.SP 


255 

.RP 

.equ 

253 

;FLAGS 

.equ 

252 

.IMR 

.equ 

251 

;IRQ 

.equ 

250 

;IPR 

.equ 

249 

;P01M 

.equ 

248 

,P3M 

.equ 

247 

.P2M 

.equ 

246 

,PREO 

.equ 

245 

JO 

equ 

244 

.PRE1 

.equ 

243 

,T1 

.equ 

242 

.TMR 

.equ 

241 

:P3 

.equ 

3 


, slack pointer 

; register pointer 

: cpu flags 

; mterri^Jt mask reg 

; intenxipt request 

; interrupt priority 

; port 0 mode 

; port 3 mode 

; port 2 mode 

; prescaier tor timer 0 

; timer 0 

; prescaier lor timer 1 
; timer 1 
; timer mode 
; port 3 
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P2 
.PO 

ALL_ON_IMR 
RETURN tMR 


equ 
equ 

equ 
.equ 


2 
0 

00111101b 
00011101b 


r port 2 
, port 0 

, lurn on jnt (or timers rpm auxobs radio 
; return on the (MR 


GLOBAL REGISTERS 


STATUS 


STATE 

PWM_STATUS 

PWM_OFF 

AUTO_0ELAY_Hl 

AUTO_DELAY_LO 

AUTO_DELAY 

MOTOR TIMER_Ht 

MOTOR_TlMER_LO 

MOTOR_TlMER 

LlGKT_T(MeR_HI 

LlGHT_T)MER_LO 

UGHT TIMER 


-EQU 04H 


EOU 
.EQU 
EQU 
.EQU 
.EQU 
.EQU 
-EQU 
-EQU 
.EQU 
.EQU 
.EQU 
.EQU 


05H 
06H 
07H 

oaH 

09H 
08H 
OAH 
OBH 
OAH 
OCH 
ODH 
OCH 


CMD_TEST 00 
WL.TEST 01 
VAC_TEST 02 
CHARGE_p3 

, State register 


PRE LIGHT 

.EQU 

OFH 


SW DATA 

EQU 

10H 


ONEP2 

.EQU 

11H 

1.2 SEC TIMER TICK. 125 

LAST^CMD 

EQU 

12H 

LAST COMMAND FROM 




« 55 WALL CONTROL 




« 00 RADIO 

BCODEFLAG 

.EQU 

13H 

B CODE FLAG 




77» bcocle 

RPMONES 

.EQU 

14H 

RPM PULSE ONE SECOND DSABLE 

RPMCLEAR 

.EQU 

15H 

RPM PULSE CLEAR AND TEST TIMER 

FAREVFLAG 

.EQU 

16H 

RPM FORCED AREV FLAG 




88H FOR A FORCED REVERSE 

FLASH FLAG 

.EOU 

17H 


FLASH DELAY HI 

.EQU 



FLASH DELAY LO 

-EQU 

19H 


FLASH DELAY 

.EQU 

idH 


FLASH COUKrrER 

-EQU 

1AH 


REASON 

EQU 

1BH 



00 COMMAND 

10 RADIO COMMAND 

20 FORCE 

30 AUXOBS 

40 AUTOREVERSE DELAY TIMEOUT 

50 LiMrr 

60 EARLY LlMrr 

70 MOTOR MAX TIME OUT 

80 FORCED AREV FROM RPM 

90 CLOSED WITH COMMAND HELD 
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EQU 

1 CH 


CMD DEB 

ECU 

1DH 


LIGHT DEB 

.EQU 

1EH 


VAC^DEB 

EQU 

IFH 


TlMER_GROUP 

EQU 

20H 


sw_adciress_hr 

-equ 

rO 


sw_acklress_lo 

equ 

n 


sw_ackires5 

equ 

rrO 


t_address_hi 

.equ 

r2 


t_addressJo 

equ 

r3 


t_address 

.equ 

rr2 


swrtch_delay 

.equ 

r4 


Itmit 

.equ 

r5 


obs coun1 

equ 

r6 


rs232do 

equ 

r7 


rs232di 

equ 

r8 


rscommand 

.equ 

r9 


rs232docount 

.equ 

no 


rs232dicount 

.equ 

r11 


rs232odelay 

.equ 

rl2 


rs232Kje[ay 

.equ 

r13 


rs232ccount 

equ 

r14 


rs232page 

.equ 

r15 


SWITCH DELAY 

EQU 

TIMER 

GROUP+4 

LIMIT 

.EQU 

timer" 

GROUP+5 

OBS courrr 

.EQU 

TIMER 

_GR0UP+6 

RS232DO 

.EQU 

TIMER 

GRGUP+7 

RS232DI 

.EQU 

TIMER" 

GROUP+6 

RSCOMMAND 

-EQU 

TIMER 

GROUP+9 

RS232DOCOUNT 

EQU 

TIMER 

.GROUP^IO 

RS232DiCOUNT 

.EQU 

TIMER 

GROUP+11 

RS2320DEU\Y 

EQU 

timer' 

GROUP+12 

RS232tDELAY 

.EQU 

TIMER 

GROUP+13 

RS232CCOUNT 

.EQU 

TIMER 

GROUP+14 

RS232PAGE 

-EQU 

TIMER 

GROUP+15 


; AO CLOSED WITH THE RADIO HELD 


, LEARN EE GROUP FOR LOOPS ECT 


LEARNEE_GRP 
TEMPH 
TEMPL 
TEMP 
LEARNDB 
LEARNTT 
ERASET 
MTEMPH 
MTEMPL 
MTEMP 
SERIAL 
ADDRESS 


.equ 30H 

,equ LEARNEE_GRP 

-equ LEARNEE_GRP+1 

-equ LEARNEE_GRP+2 

-equ LEARNEE_GRP+3 

.equ LEARNEE.GRP+4 

.equ LEARNEE_GRP+5 

.equ LEARNEE GRP+6 

.equ LEARNEE_GRP+7 

.equ LEARNEE_GRP+8 

.equ LEARNEE_GHP+9 

.equ LEARNEE_GRP+10 


team debounoer 
team ttmer 
erase timer 
memory temp 
memory temp ^ 
memory temp 

serial data to and from nonvol memory 
address tor the serial nonvol memory 
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TCEXT 

equ 

LEARNEE 

T4MS 

.equ 

LEARNEE 

T125MS 

equ 

LEARNEE 

22WIN 

.equ 

LEARNEE 

SKIPRADIO 

.equ 

LEARNHE. 

temph 

.equ 

rO 

tempi 

.equ 

r1 

temp 

.equ 

r2 

learndb 

.equ 

i2 

learnt 

•equ 

tA 

eraset 

equ 

t5 

mtemph 

.equ 

r6 

mtempi 

equ 

r7 

mtemp 

.equ 

r8 

serial 

.equ 

t9 

address 

.equ 

no 

tOexl 

.equ 

r11 

14ms 

equ 

r12 

t125ms 

.equ 

r13 

zzwin 

equ 

r14 

skipradio 

equ 

r15 


. timer 0 extend decremented every TO int 

; 4 mS counter 

. l25mS counter 

; radto 00 code window 

, flag to skip the radio read and write if 

; leam or vacation are talking to ii 


; leam de bouncer 
; learn timer 
, erase timer 
; memory temp 
; memory temp 
; memory temp 

; serial data to and from nonvol memory 
; address for the senal nonvo! memory 
; Itmer 0 eiftend decremented every TO int 
; 4 mS counter 
; 125mS counter 

; flag to skip the radio read and write if 
; leam or vacation are talkir>g to it 


PWM_GROUP 

dniorce 

upforce 

up_force_h( 

upjorcejo 

up_force 

dn_force_hi 

dn_torce_lo 

dnjorce 

force_add_hi 

force_add_lo 

force^add 

upjemp 

dn_temp 

puisewidth 

pwm_count 

DNFORCE 

UPFORCE 

AOBSTEST 

FAULTTIME 

UP_FORCE_Ht 

UP FORCE.LO 

DN_FORCE_Hi 

DN_FORCE_LO 

PULSEWIDTH 

pvyM^cbum- 

AOBSF 
FAULTCODE 


.EQU 

40H 

.equ 

rt) 

.equ 

r1 

equ 

r4 

equ 

r5 

equ 

rT4 

equ 

r6 

.equ 

r7 

.equ 

rr6 

equ 

r8 

equ 

' r9 

equ 

rr8 

equ 

no 

.equ 

ni 

equ 

n2 

equ 

na 

.equ 

40H 

.equ 

41H 

.equ 

42H 

.equ 

43H 

.equ 

44H 

.equ 

ASH 

.equ 

46H 

.equ 

47H 

.equ 

4CH 

.equ 

4DH 

.equ 

4EH 

.equ 

4FH 
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RPW_GROUP 

.EQU 

50H 


stackreason 

.equ 

rO 


stacktiag 

equ 

r1 


rpnn_lemp_hi 

.equ 

r2 


rpm_temp_b 

equ 

r3 


rpm_past_hj 

.equ 

r4 


rpm_past_to 

equ 

r5 


rpm_past 

.equ 

rr4 


rpm_penod_hr 

.equ 

r6 


rprr\_per\o6_\o 

equ 

r7 


rpm_period 

equ 

rT« 


rpm_count 

equ 

rQ 


rpm_ditt_hi 

.equ 

r9 


rpm_dift_lo 

.equ 

rIO 


rpm_2past_hi 

equ 

r11 


rpm_2past_lo 

.equ 

r12 


rpm_set_dtf1_hi 

equ 

r13 


rpm_set_clff_lo 

.equ 

n4 


rpm_time_out 

.equ 

r15 


STACKREASON 

.EOU 

RPM 

GROUP+0 

STACKFLAG 

EQU 

RPM 

GROUP+1 

RPM TEMP HI 

.EQU 

rpm" 

GROUP+2 

RPM TEMP LO 

EOU 

RPM 

GROUP+3 

RPM PAST Hi 

EQU 

RPM 

GROUP+4 

RPM PAST LO 

EQU 

RPM 

GROUP+5 

RPM PERIOD H! 

.EQU 

RPM' 

GROUP+6 

RPM PERIOD LO 

.EQU 

RPM 

GROUP+7 

RPM couisnr 

EQU 

RPM 

GROUP+8 

RPM DIFF HI 

.EQU 

RPM 

GROUP+9 

RPM DIFF LO 

.EQU 

RPM GROUP+10 

RPM 2PAST HI 

.EQU 

RPM 

GROUP-r11 

RPM 2PAST LO 

.EQU 

RPM 

GROUP+12 

RPM SET DIFF HI 

EQU 

RPM 

GROUP+13 

RPM SET DIFF LO 

.EQU 

RPM 

GROUP+14 

RPM TIME OUT 

.EOU 

RPM 

GROUP+15 


. RADIO GROUP 


RADIO_GRP 

RTEMP 

RTEMPH 

RTEMPL 

RTIMEAH 

RTtMEAL 

RTIMEIH 

RTIMEIL 

RTIMEPH 

RTIMEPL 

RADI03H 


.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 


60H 

RADIO 

RADIO 

FIADIO 

RADIO 

RADIO 

RADIO 

RADIO 

RADIO" 

RADIO" 

radio" 


GRP 

GRP+1 

GRP+2 

GRP+3 

GRP+4 

GRP+5 

GRP+6 

GRP-1.7 

GRP+8 

GRP-^9 


; radk) temp storage 
; rad»o temp storage high 
; radk) temp storage tow 
; radio active time high byte 
; radio active time low byle 
: radio inactive time high byte 
; radio inactive time Jow byte 
; radk) past tinrte high byte 
; radio past time low byte 
; 3 mS code storage high byte 
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rad;03l 

.equ 

R A n 1 Pi 1 M 

.equ 


.equ 


.equ 

rt 1 Itvlc Un 

equ 

H i IMt UL 

.equ 

rtemp 

equ 

rlemph 

.equ 

rtempl 

equ 

rlimeah 

equ 

riimesi 

.equ 

rtimeih 

equ 

rtimeil 

.equ 

rtimeph 

.equ 

rtimepl 

,equ 

radio3h 

eqii 

radioSI 

equ 

radtol h 

.equ 

radio! I 

.equ 

radtoc 

.equ 

riim©dh 

.equ 

rtjmedi 

.equ 

CHECK_GRP 


check_sum 


rom_data 


test_adr_hi 


test_adrJo 


lest adr 


CHECK SUM 


ROM DATA 


AUXLEARNSW 


RRTO 


RPM ACOUNT 


RSCCOUNT 


RSSTART 


RADIO CMD 


R DEAD TIME 


FAULT 


VACFLAG 


VACFLC,SH 


VACCHANGE 


TASKSWITCH 


FORCE IGNOf^E 

FORCE PRE 


SDISABLE 


PRAD103H 


PRADI03L 


PRADI01H 


PRADiOlL 


RTO 


RFLAG 


RINFILTER 



RADJO.GRP^IO 

RADIO_6RP+11 

RADI0_GRP+12 

RADIO_GRP*13 

RADIO_GRP+14 

RAD[0_GRP+15 

fO 

r1 

j2 

r3 

r4 

r5 

r6 

r7 

r8 

r9 

no 

r11 

r12 

n3 

r14 

ns 


equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
>equ 
equ 
equ 

.equ 
.equ 
.equ 

equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 


70H 
rO 

n 

r2 
r3 
rr2 

CHECK_GRP+0 
CHECK_GRP+1 
CHECK_GRP+2 
CHECK_GRP+3 
74H 
75H 
76H 


3 .nS code storage tow b>1e 
1 mS code storage high byie 
1 mS code storage low byte 
radio word count 

radio difierence of active and inactive 

radio dittererice 

radio temp storage 

radio temp storage high 

radio temp storage low 

radio active time high byte 

radio active time low byte 

radio tnacttve time high byte 

radio inactive time low byte 

ra3to past time high byte 

radio past time low byte 

3 mS code storage high byte 

3 mS code storage low byie 

1 mS code storage Ngh byte 

1 mS code storage low byte 

radio word count 

radio difference of active and inactive 
radio difference 


; check sum pointer 


check sum reg for por 
data read 


77H 
78H 
79H 

7AH 
7BH 
7CH 
7DH 
7EH 
7FH 
80H 
81 H 
82H 
83H 
84H 
85H 
&6H 
87H 


; to test for active rpm 
; rs232 byte counter 
; r5232 start flag 

racfio command 


; VACATION mode flag 


system disable timer 
3 mS code storage high byte 
3 mS code storage k>w byte 
1 mS code storage high byte 
1 mS code storage tow byte 
radio time out < 
radio flags 
radio input fitter 
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LIGHTiS 

.equ 

88H 

, licht timer for 1 second flash 

DOG2 

equ 

89H 

: second watchdog 

FAULTFLAG 

equ 

esH 

, Hag for fault blink stops radio blink 

MOTDEL 

.equ 

8CH 

, motor time deiay 

LIGHTS 

equ 

SDH 

, ligM stale 

DELAYC 

equ 

8EH 

; tor the time delay lor command 

COUNTER 

equ 

SFH 

; delay counter 

BACKUP_GRP 

.equ 

90H 


ForcedDown 

.equ 

BACKUP 

GRP 

BRPM COUNT 

.equ 

BACKUP 

GRP+1 

BRPM TIME OUT 

,equ 

BACKUP* 

GRP+2 

BFORCE IGNORE 

equ 

BACKUP 

GRP +3 

BAUTO DELAY HI 

.equ 

BACKUP 

GRP+4 " 

BAUTO DELAY LO 

.equ 

BACKUP GRP^S 

BAUTO DEIJ^Y 

.equ 

BACKUP GRP+4 

BCMD DEB 

equ 

BACKUP GRP+6 

ESTATE 

.equ 

BACKUP GRP+7 


STACKTOP 

equ 

236 

start of the stack 

STACKEND 

.equ 

OAQH ; end of the stack 

P3 

.equ 

3 ; 

port 3 

,P2 


2 

port 2 

.PO 

equ 

0 ; 

port 0 

RS2320S 

equ 

oiooooooe 

RS232 output bit set 

RS2320C 

equ 

101111118 ; 

RS232 output bH dear 

RS2320P 

equ 

P3 ; 

RS232 output port 

RS232IP 

equ 

P2 : 

RS232 input port 

RS232iM 

.equ 

00100000B 

RS232 mask 

csh 

equ 

D0010000B 

chip select high for the 93o46 

csi 

.equ 

111011118 

chip select low lor 93c46 

dockh 

.equ 

00001 OOOB 

clock high lor 93c46 

clock! 

.equ 

11110111B 

clock tow tor 93c46 

doh 

equ 

OOOO01O0B 

data out high lor 93c46 

dol 

.equ 

11111011B 

data out low for 33c46 

ledh 

equ 

10000000B 

turn the led pin high "on" 

ledt 

.equ 

oiiniiiB 

turn the led pin low "off 

psmask 

.equ 

01000000B 

; mask fo? the program switch 

csport 

e<^ 

P2 

, chip select port 

dioporl 

.equ 

P2 

; darta i/o port 

clkport 

equ 

P2 

; clock port 

ledport 

.equ 

P2 

;(ed port 

psport 

equ 

P2 

; program switch port 

WATCHDOG_GROUP .EOU OFH 


peon 


.equ rO 


smr 


.equ rll 


wdtmr 


.equ r15 



WDT macro 

.byte 51h 
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endm 


FILL 


macro 

byte OFFh 
endm 


TRAP 


TRAPlO 


.macro 
jp start 


IP 
IP 
jp 
IP 

endm 
macro 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
endm 


Start 
start 
Stan 
Stan 


Interrupt Vector Table 


org 

OOOOH 


word 

RADIO INT 

;tRQO 

word 

OOOCH 

;IRQ1,P3.3 

word 

RPM 

;IRQ2, P3.1 

.word 

AUX OBS 

;JRQ3. P3.0 

word 

TIMERUD 

;IRQ4. TO 

word 

PWM 

;fRQ5, T1 

.page 



.org 

OOOCH 


jp 

START 

; start jmps 1 


start jmps to start at location 0101 or 0202 ect 


FORCE TABLE 


<orce tabte_50 
F 4 


.word 
.word 
.word 
.word 
.word 


107FH 
107FH 
109DH 
108BH 
10D9H 
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F_5 word 10F8H 

F_6 word ni6H 

F_7 word 1 1 34H 

F_8- word ^^52H 

F_9 .word 1 1 66H 

F_10- word 117DH 

F_11 word 1193H 

F_12, .word 119FH 

F_13 word 11ABH 

F_14. .word 11B7H 

F_15 .word 11C3H 

F_16. .word nCFH 

F_17- .word IIDFH 

F_16 .word 11EeH 

F_19 word 11F4H 

F_20 word 1 200H 

F„21 word 120CH 

F_22 word 1218H 

F_23. word 1224H 

F_24. .word 1230H 

F_25 .word 123CH 

F_26 .word 1248H 

F_27 word 1254H 

F_28 .word 1260H 

F„29 word 126CH 

F_30 word 1278H 

F_31. .word 12&4H 

F_32 word 1291H 

F_33. .word 129DH 

F_34 word 12BBH 

F_35 word 12D9H 

F_35 word 12F7H 

F_37 word 1315H 

F_38 .word 1333H 

F_39 .word 1352H 

F_40 word 1370H 

F_41: .word 138EH 

F_42 word 13ACH 

F„43. word 13CAH 

F_44 .word 1407H 

F_45. .word 1443H 

F_46 .word 147FH 

F_47 .word 14BCH 

F_48. .word 14F8H 

F_49 .word 1 534H 

F_50. .word 1571H 

F_5V word 15E9H 

F_52: .word 1626H 

F_53 .word 169EH 

F_54. .word 1717H 

F,55. .word 17D5H 

F_56- .word 1951H 

F_57 .word 1 B8DH 

F_58 .word 1 E86H 

F_59 .word 223 EH 

F_60 word 26B4H 
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F_61 word 2BE9H 

F_62 .word 31DDH 

F_63 .word 388EH 

F_64 .word 388EH 


RS232 DATA ROLfTINES 


enter rs232 start with word to output in rs232do 


RS2320START: 

push 

srp 

Cir 

td 

clr 

and 


#TIMER_GROUP 

RSSTART 

rs232odelay.#6d 

r5232docount 

RS2320P.#RS2320C 

NORSOUT 


; save the rp 

; set the group pointer 

; one shot 

; set the lime delay to 3 mS 
; start with the counter at 0 
; clear the output 


RS232. 


RS2320UTPUT 


RS232R 


RS232SET 
SETTIME. 


NORSOUT. 
RS232iNPUT: 


CP 

RSSTART,#OPFH 


2.RS2320START 

push 

fP 

srp 

#TIMER GROUP 

cp 

rs232docount.#11d 

K 

n2.RS232R 

or 

RS2320P,#RS2320S 

JR 

NORSOUT 

djnz 

rs232odeiay,NORSOUT 

inc 

rs232docount 

sd 


rrc 

rs23ado 


c,RS232SET 

and 

RS2320P.#RS2320C 

jr 

SETTIME 

or 

RS232OP.#RS2320S , 

Id 

fs232ode(ay,#Sd 

tm 

rs232docount,#0CXX)0001 b 

if 

z.NORSOUT 

Id 

rs232odelay.#7d 

cp 

rs232cScount,#0FFH 

jr 

nz.RECElVlNG 

tm 

RS232IP.#RS232IM 

jr 

fU.NORSIN 

clr 

rs232dicount 

td 

rs232tdetay,#3 


; test for the start flag 


; save the rp 

; set the group pointer 

; test for last 

; set the output idle 


; cycie count time delay 

; sel the count for the next cyde 

; set the carry flag lor stop btts 

; get the data into the carry 

; if the brt is high then set 

; dear the output 

; find the delay tinne 

; set the output 

: set the data output delay 
; test tor odd words 
: H even ck>ne 
; set the delay to 7 for odd 
;tNs gives 6-5*.512mS 


;test mode 

; H receiving then jump 

; test the incoming data 

; H the line ts stilt »dle then skip 

; start at 0 

; set the delay to mid 
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RECEIVING 


SKIPSETTING 


DiEVEN 


NORSiN 


djnz 

rs232idelay. NORSIN 

inc 

rs232dtcoun! 

cp 

rs232dtcount.#10d 

i'' 

2.DIEVEN 

tm 

RS232IP,#RS232tM 

rcf 



z.SKIPSETTlNG 

scf 


rrc 

rs232di 

id 

rs232idetay,#6d 

tm 

rs232dicount,#O0000001 b 

jr 

2.NORSIN 

id 

rs232idelay.#7 

jr 

NORSIN 

Id 

rs232dicount,#orFH 

W 

rs command. rs232di 

cir 

RSCCOUNT 

pop 


ret 


RLL 


FILL 



, sktp till delay is up 

, bit counter 

; test for last timeout 

, lest the incoming data 
; clear the carry 

; tf input btt not set skip setting carry 
, set the carry 

; save the data into the memory 
. set the delay 
; test for odd 
; if even skip 
; set the delay 


; turn off the input till next start 
, save the value 
, clear the counter 

; return the rp 


REGISTER INlTILiZATlON 


start 
START 


org 0101H 


di 
Id 
Id 

WDT 

cIr 


RP.#WATCHDOG_GROUP 
wdtmr,#0000111lB 

RP 


; address has both bytes the same 

; tum off the interrupt tor inrt 

; rc dog 1 0OmS 

; kick the dog 

; clear the register pointer 


PORT INITILIZATION 


Id 

P0.#P01S IN IT 

Id 

P2.#P2S iNIT-2 

id 

P3.#P3S INIT 

Id 

P01M,#P01M INIT 

id 

P3M,#P3M_INIT 

Id 

P2M,#(P2M_INIT-3) 


; RESET all ports 

; Set the up Itmtt high , down limit low 

; set mode p00-p03 out p04-p07in 
; set ports p30-p33 input arialog mode 
; p34-p37 outputs 

. set port 2 mode setting the hmits as 
; outputs for fema of open 


Internal RAM Test and Reset All RAM . mS 


5,780.987 


37 


38 


wr)te_again 


wrrte_again1 


srp 

#OFCh 

, point to control group use stack 

Id 

r15.#4 

;r15^ pointer (minimum of RAM) 

WOT 


, KICK TH£ DOG 

Id 

rU.#'i 


Id 

@>rl5.r14 

write 1.2.4,8.10.20.40.80 

cp 

r14,@>r15 

.then compare 


r»e.system_erTof 


rl 

n4 


jr 

nc.write^agaim 


clr 

<g>rl5 

;wnte RAM(r5)»0 to memory 

inc 

f15 


cp 

r'i5.#24D 


J' 

ult,wnie_again 



Checksum Test 
CHECKSUMTEST 


add^sunr 


system_error 


system_ok' 

WDT 
Id 

SETSTACKLOOP: 
id 

dec 
cp 

CLEARDONE: 


srp 

#CHECK_GRP 


id 

test adr hi.#OFH 


id 

t©st,adrJo,#OFFH 

;maximum address«fffh 

WDT 


: KICK THE DOG 

Idc 

fom_data,@test_adr 

;read ROM code one by Of>e 

add 

ch&ck_sunn ,rom_dala 

;add it to checksum register 

decw 

test^adr 

^increment ROM address 

V 

nz,add_sum 

;address-0 ? 

cp 

check_sum.#check_sum_value 


if 

z,system_ok 

;check final checksum • 00 ? 

and 

tedpoft.med 

; lum on the LED to indicate fautt 


system_error 


.byte 

256-checK_sufTt_value 



STACKEND.#STACKTOP 

@STACKEND,#01H 
STACKEND 

STACKEND.#STACKEND 
nz.SETSTACKLOOP 


; kick the dog 

; start at the top of the stack 

; set the value for the stack vector 

; next address 

; test for the last address 

, loop tin done 


W STATE.#06d 

W BSTATE,#06d 

Id STATUS.#CHARGE 


set the state to stop 
set start to charge 
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Id SWITCH DELAY,#CMD_DEL_EX , set the delay time to cmd 

Id LIGHT_T7MER_HI.#SET_TiME_HI ; set the light penod 

id LIGHT TIMER_LO.#SET_T)ME„LO ; for the 4.5 min timer 

td PRE_LIGHT.#SET_TIM£_PRE ; 

id PULSEW!DTH,#MIN_COUNT ; set intt 

Id PWM_COUNT,#TOTAL_PWW_COUrrr; 

id RPMONES.#244d ; set the hold off 

id RS232DOCOUNrr.#1 1 D ; turn o« the rs232 output 

srp #LEARNEE„GRP ; 

Id leanndb.#OFFH ; set the leam <Jebouncer 

Id zzwinjearndb : turn off the learning 

Id CMD_DEB,ieamdb , In case of shorted switches 

Id BCMD_DEB,leamdb - ; ta case of shorted switches 

Id VAC DEB.Ieamdb ; 

Id LIGHT _DEB.leamdb 

Id ERASET.leamdb ; set the erase timer 

Id leamt.leamdb : set the learn timer 

Id RTO.leamdb ; set the radio time out 

Id AUXLEARNSW.Ieamdb , turn off the aux leam switch 

Id RRTO.Ieamdb ; set the radio ttmer 


STACK INiTiLlZATlON 


dr 254 

Id 255,#23SD ; set the start of the stack 


TIMER INiTlLIZATlON 


Id PRE0,#CHX>01 001 B ; set the prescaler to / 2 for 8Wh2 

id PRE1, #010000108 ; one shot mode /1 6 

Id TD.#OOOH ; set the countec to count FF through 0 

Id T1 ,MlN_COUNT ; set inrt count 

\6 TMR, #00000011 B ; turn on the timer 


; PORT tt^lTlLlZATlON 

id P0,#P01SJNIT " ; RESET all ports 

id P2,#P2S INIT ; 

td P3,#P3SjNrr ; 

id P01M,#P01MJNIT ; set mode p00-p03 out p04-p07in 

id P3M ,#P3M_1NIT ; set ports p30-p33 input analog mode 

; p34-p37 outputs 

Id P2M.#(P2M_HMnr+0) ; set port 2 mode 


'. READ THE MEMORY 2X AND GET THE VACFLAG 
W SKlPRADIO.#OFFH 

Id ADDRESS,#1 EH ; set rvon vol address to the VAC Hag 
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catl READMEMORY , read the value 2X 1 X I NIT 2ND read 

cail READMEMORY ; read the value 

Id VACFLACMTEMPH , save into voiital 

clr SKiPRADlO 


IN^TERRUPT (NITILI2ATION 


SETINTERRUPTS 
Id 
Id 
Id 


IPR #0001 101 OB 

1MR.#ALL_0NJMR 

1RQ.#01000000B 


; set the priority to tinrver 
; turn on the interrupt 
; sefihe edge clear int 
; enable imerrup! 


! RESET SYSTEM REG 


td RP,#WATCHDOG_GROUP 

id smr.#OQ100010B 

Id pcon,#0l111110B 

td PREO, #000010016 

Id RS232DO.#0BBH 

jp VACSWOPEN 


; reset the xtal / number 

, reset the peon no comparator output 

; no iov^ emi mode 

; set the prescaler to ; 2 for SMhz 

; set the rs232 data 

; start the transmission 


, MAIN LOOP 
MAINLOOP. 


ctr 
Id 
Id 


cp 

jr 

Id 

MCLEARVAC. 

dr 

SETVACCHANGE 
clr 
ki 
Id 
Id 
Id 

catl 
clr 

NOVACCHG. 


DOG2 

P01M,#P01M_tNIT 
P3M.#P3M_INIT 

P2M.#(P2MJNn"+0) 

VACCHANGE.#OAAH 

r>2,NOVACCHG 

VACFiJVG.#OFFH 

z.MCLEARVAC 

VACPLAG,#OFFH 

SETVACCHANGE 

VACFLAG 

VACCHANGE 

SKlPRADlO,#0FFH 

ADDRESS.#1EH 

MTEMPH.VACFLAG 

MTEMPL.VACFLAG 

WRITEMEMORY 

SKiPRADlO 


dear the second watchdog 

set nrKKte p00-pQ3 out p04-p07in 

set port3 p30-p33 input analog mode 

p34-p37 outputs 

set port 2 mode 

test for the vacation change flag 

if rw change the skip 

test for in vacation 

H in vac ctear 

set vacation 

set the change 

dear vacation mode 

one shot 
set skip flag 

set the non vol address to the VAC flag 
store the vacation flag 

write the value 
dear skip flag 
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cp 

if 

srp 

clr 

id 

Id 

call 

tnc 

inc 
|r 

call 
inc 
cail 
inc 

inc 

C0UNTEB2D0NE- 
call 
Id 
call 

and 

or 

Id 

Id 

Id 

call 

]f 

C0UNTER1DONE. 

call 

CDONE. 

kJ 

call 
ar>d 
Id 

add 

Id 
or 
call 
clr 


NOCHANGEST. 


RESET: 
TESTRPM. 


caM 

di 

cp 

ji- 

JP 

cp 

cp 
ir 
ei 


STACKFL^G.#orFH 
nz, NOCHANGEST 

#L£ARNE£_GRP 

STACKFLAG 

SKIPRADIO.#0FFH 

address. #1CH 

READMEMORY 

mtempi 

nz.COUNTERlDONE 
nntemph 

n2,COUNTER2DONE 

WRITEMEMORY 

address 

READMEMORY 
mtempi 

n2,COUNTER2DONE 
mtemph 

WRITEMEMORY 
address, #1 CH 
READMEMORY 

mtemph.#0000111lB 

mlemph.#30H 

ADDRESS,MTEMPH 

mtempi. DNFORCE 

mtemph.UPFORCE 

WRITEMEMORY 

CDONE 

WRITEMEMORY 


lest for the change flag 
r1 no change skip updating 

set the register pointer 
clear the flag 
set skjp flag 

set the no n vol address to the cyde c 
read the value 

increase the counter lower byte 

inaease the counter high byte 

store the value 
9et the ne)ct bytes 
read the data 

increase the counter low byte 

increase the vounter high byte 

save the value 

read the data 

find the force address 

set the address 
read the forces 

wnte the value 
, done set the back trace 

, got the new address 


ad<^ess.#i CH ; get the first byte 
READMEMORY 

mtempi. #00001 11 1 b ; find the address 
address.#20H 
address, mtempJ 
mtemph.STACKREASON ; 
mtemph.STATE ; or in the state 

WRITEMEMORY ; write the value to stack 

SKIPRADIO Tclear skip flag 


LEARN 


; do the team switch 


BRPM_C0UNT.RPM_COUNT 
Z.TESTRPM 

START 

BRPM.TIME OLnr,RPK'._TlME OUT 
nz.RESET 

BFORCE_IGNORE.FORCEJGNORE 
nz.RESET 
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TESTRS232. 


CP 

V 
cp 

r 

cp 

jr 

cp 

di 

cp 

cp 

jr 
Cp 
jr 
cp 

if 

dr 


BAUT0_DELAY_HI.AUTO_DELAY_HI 
nz.RESET 

BAUTO_DELAY_LO,AUTO_DEU\Y_tO 
nz.RESET 

BCM D_DEB .CMD_OEB 
nz.RESET 
ESTATE. ST ATE 
nz.RESET 


RSSTART,#OFFH 
2,skjprs232 
RSCOMMAND,#0FFH 
z,skipr£232 

RS232DOCOUNT .#11 d 

n2,skiprs232 

RSCOMMAND.#30H 

nz.TEST3l 

RS232DO 


; test for starting a transmission 
; \i starting a trans skip 
; test for the off mode 

; test for output done 

; if not the skip 

; test for switch data 

; dear the data 


UPLIMOPEN- 


DNLIMOPEN. 


CMDSWOPEN 


WLSWOPEN 


VACSWOPEN 


tm 

p2.#UP LIMIT 

; test lor up timit 

jr 

nz UPLIMOPEhJ 


or 

RS232DO,#00000001B 

; set the n^arkirig brt 

tnn 

p2.#DN Liwrr 

; test for the down limft 


nz. DNLIMOPEN 


or 

RS232DO.#00000010B 

; set the marWng b'rt 

cp 

CMD DEB.#OFFH 

; test for the command set 

Jf 

nz.CMDSWOPEN 


or 

RS232IX),#OO0O010OB 

; set the marking bit 

cp 

LIGHT DEB.#OFFH 

; test tor the worklight set 

jr 

nz.WLSWOPEN 

or 

RS23?DO,#00001 0008 

; set ttie marking bit 

cp 

VAC DEB.#OFFH 

; test fir the vacation set 


nz.VACSWOPEN 


or 

RS232DO.#0001 OOOOB 

; set the marking bit 

dec 

RSSTART 

; set the slarl flag 

id 

RSCOMMANa#0FFH 

; turn off command 



; return 


Skiprs232: 

jp SKIPRS232 

TEST31. 

cp RSCOMMAND,#31H 

jr nz.TEST32 

Id RS232DO.STATE 

cp LEARNT.#OFFH 

jr z,NOTINLEARN 

or RS232DO,#0001 OOOOB 

NOTINLEARtJ- 

cp VACFLjAG,#OOH ; test the vacation Hag 


; test for status data 

; read the state 

; test for leam mode 
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z.NOTINVACATtON 
RS232DO.#001 OOOOOB 


NOTINVACATION. 

tm 

or 

LIGHTISOFF. 

tm 

ir 
or 

AOBSFINE. 


pO.#WORKLIGHT 
z.LlGHTtSOFF 
RS232DO.#01 OOOOOOB 

AOBSF.#00000001B 
Z.AOBSFINE 
RS232DO.#1 OOOOOOOB 

VACSWOPEN 


, test for the light on 

; mark the 1>H 

; lesi tor aobs error 


TEST32 


ST ART OUT- 


LASTRPM 


cp RSCOMMAND.#32H 

ir nz,TEST33 

Id RS232DO.RPM_PER10D_LO 

cp RSCCOUr^.#01H 

)r r.LASTRPM 

Id RS232DO,RPM_PERIOD_H! 

dec RSSTART 

inc RSCCOUNTT 

jr skiprs232 

clr Rsccouisrr 

IP VACSWOPEN 


; lest for rpm data 


; test for on transmitted last cycte 


; set the start flag 
; increase the count 
; return 

; reset the counter 
; return 


TEST33 


cp RSCOMMAND.#33H 

jr n2,TEST34 

id RS232DO.UPFORCE 

cp Rsccout^^^,#oo 

K z.STARTOUT 

Id RS232aO.DNFORCE 

)r LASTRPM 


; test tor force data 


; test for the first byte 
; output 


; output 


T£ST34 


TESr35' 


TEST36. 


TEST37. 


cp RSCOMMAND.#34H 

ir nz.TESTSS 

id RS232PAGE,#00H 

|r RS232PAGEOUT 

cp RSCOMMAND,#35H 

jr n2.T£ST36 

Id RS232PAGE,#10H 

jr RS232PAGE0LrT 

Cp RSCOMMAN0.#36H 

jr nzJEST37 

ki RS232PAGE,#20H 

ir RS232PAGEOaT 

cp RSCOMMAND,#37H 

jr n2.TEST38 


; test for fadk> page 


; test for force page data 


; test 1w history page idata 


; test for Nstory page 2 data 
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RS232PAGE,#30H 


RS232PAGrOUT 


RPBYTE 


TEST3S. 


WRITE LOOP1 


READLOOPl. 


WR(TELOOP2 


READLOOP2- 


Id 

SKIPRAD!O.#0FFH 

. set the skip radio flag 

Id 

ADDRESS.RSCCOUNT 

, find the address 

rcf 



rrc 

ADDRESS 


or 

ADDRESS.RS232PAGE 


call 

READMEMORY 

, read the data 

id 

RS232DO.MTEMPH 


tm 

RSCCOUNT,#01H 

, test which byle 

V 

2,RPBYTE 

id 

RS232DO.MTEMPL 


dr 

SKtPRADIO 

. lurn off the skip radjo 

CP 


; test for the end 

IP 

2 LASTRPM 


ip 

STARTOUT 


cp 

RSCOMMAND.#38H 

: test memory 

jr 

nz,TEST39 


(d 

RS232DO,#0FFH 

; flag set lo error to start 


SKIPRADIO.#OFFH 

; set the skip radio flag 

Id 

MTEMPH.#OFFH 

; set the data to wnte 

Id 

MTEMPL.#OFFH 


td 

ADDRESS,#O0 

; start at address 00 

WDT 



call 

WR(TEMEMORY 


tnc 

ADDRESS 

. do the r^ext address 

cp 

ADDRESS,#40H 

; test tor the tast address 


nz.WRtTEl.OOPl 


id 

ADDRESS.#00 

; start at address 0 

WDT 



call 

READMEIWORY 

; read the data 

inc 

MTEMPH 

; test the high 


nz.MEMORYERROR 

; tf error mark 

inc 

MTEMPL 

; test the low 

if 

nz.MEMORYERROR 

; H error mark 

inc 

ADDRESS 

; set the next address 

V 

ADDRESS,#40H 

; test tor the last address 


nz.READLOOPi 


Id 

MTEMPH.#QO0H 

; set the data to write 

Id 

MTEMPL.#O00H 


)d 

ADDR£SS.#O0 

; start at address 00 

WDT 



cail 

WRITEMEMORY 


inc 

ADDRESS 

; do the next address 

cp 

ADDRESS,#40H 

; test for the last address 


n2.WRrrELOOP2 


Id 

ADDRESS,#O0 

; start at address 0 
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TEST39- 


SK1PRS232- 


VVDT 



call 

READMEMORY 

, read the data 

cp 

MTEMPH #00 

. test the high 

jr 

nz.MEMORVERROR 

; if error mark 

cp 

MTEMPL #00 

, test the low 


nz.MEMORVERROR 

; rf error mark 

inc 

ADDRESS 

, set the next address 

cp 

ADDRESS.#40H 

; test ior the last address 

jr 

n2,READLOOP2 


call 

CLEARCODES 


dr 

SKIPRADtO 

; clear the skip radio flag 

clr 

RS232DO 

; flag all ok 

:)R 


IP 

VACSWOPEN 


cp 

RSCOMMAND,#39H 

; test memory 

j'' 

nz,SKtPRS232 


Id 

RSCOMMAND,#0FFH 

; turn off command 

call 

SETLEARN 


cp 

R DEAD TIME,#20 

; test for loo tong dead 

jP 

nz,MAlNLOOP 

; K not loop 

clr 

RADIOC 

; dear the radio counter 

dr 


; dear the radio flag 

JP 

MAINLOOP 

; loop forever 


, Radio interrupt from a edge of the radio signal 


RADIO INT 


RTIMEOK. 


push 

RP 

; save the radio pair 

srp 

#RADlO.GRP 

; set the register pointer 

kj 

rtemph.TOEXT 

; read the upper byte 

Id 

rIempl.TO 

; read the lower byte 

tm 

IRQ.#OD010000B 

; test for pending int 


z.RTlMEOK 

; * not then ok tin>e 

tm 

rtempl.#1CyX>0O00B 

; lest for timer reload 

J*' 

z,RTtMEOK 

; if not rek>aded then ok 

dec 

rtemph 

; if reloaded then dec high for sync 

c\r 

R DEAD TIME 

; dear the dead time 

and 

IMR,#11111110B 

; turn oft the radio interrupt 

Id 

rlimedh.rtimeph 

; find the (Sfference 

\6 

rlimedl.rttmep) 


sub 

rtimedi.rtempl 


six 

rtimedh.rtemph 

; in the past time and the past time 

tm 

rtimedh,#lOOOOOOOB 

; test for a negitive number 

jr 

z.RTIMEDONE 

; if the number is not negitive then 

kj 

rtimedh. rtemph 

; find the difference 

id 

rtjn>edl,rtempi 
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sub 
sbc 

RTIMECKDNE: 

tm 

J'' 

INACTiVETlME 

CP 

jf 

Jf 

GOi^ACTlVE- 

or 
dr 
Id 
Id 
Id 
Id 

ACTIVETIME. 

}^ 

GOACTtVE 

and 

W 
Id 
td 
Id 
Id 
ei 
cp 

MEASUREBU^NK 
cp 
iP 
cp 
IP 
cp 

cp 

SETREC1MS. 

tm 
V 

and 

or 

dr 

cir 

jr 

SETFIRSTIMS: 

or 
dr 
dr 

SETREC3MS. 

af>d 


nimedt rtimep! 
rtimedh.rtjmeph 

P3 #000001006 
nz, ACTIVETIME 

RINFILTER#0FFH 

z.GOlNACTIVE 

RADtO^EXIT 

IRQ.#01000000B 

RINFILTER 

rtinneih.rlimedh 

rtimeil.rtimedl 

rtimeph.rtemph 

rtimepi.rtempl 

RADI0_EX{T 

RtNFHTER,#O0H 
2 GOACTiVE 
RAD10„EXrr 

IRQ.#001 11111 B 

RtNFiLTER,#OFFH 

ftimeah.rtimedh 

rtimeal.rtimedt 

rtjmeph.rtemph 

rttmept.rlempl 

radioc,#OOH 
nzJNSIGNAL 

nim€ih.#110D 

ugt.CLEARRAD!0 

rlimeih.#40D 

ult.CLEARRADtO 

n»meah.#03H 

ugt SETREC3MS 

nzSETRECIWS 

rtimeal.#09DH 

ug1.SETREC3MS 

RFLAG.#00010000B 

Z.SETFIRSTIMS 

RFLAG.*10111111B 

RFLAG.#00tO00OOB 

radto3h 

radio3l 

INCCOUm^ 

RFLAG.#01000000B 
radiolh 
radio II 
INCCOUKT 

RFLAG,#10t11111B 


; ir> the past time and the past lime in temp 

, test the port for the edge 

; if ft was the active ttme then branch 

; test for adive iast time 
; i1 so continue 
; If not the return 

; set the bit setting direction to pos edge 

; set f^ag to inactive 

; transfer diflerence to inactive 

; transfer temp into the past 

; return 

; test for active last time 
; i1 so continue 
; if not the return 

; dear the bit setting direction to r>eg e<Jge 
; transfer difference to active 
; transfer temp into the past 


lest for Wank time 

(f the count is not zero then we are in signal 

test the timer for > 55mS 

it > 55 then dear the radio 

test the timer for < 20mS 

if < 20mS then dear the radio 

lest the sync pulse for a 3mS period first > 1 

H 2mS or greater then 3mS sync co<le 

H less then 1 then it is a 1 mS sync code 

test for 1 .85 "middte value 2" 

H greater then set a 3 

; test for the receptior of the ImS code 
; if the bit is not set then this the first 1 ms 
; dear the flag so writing into 3mS word 
; set the flag sayirvg 2nd ImS word 
; dear the last reception 

; then k\c the count for insignal 

; set the flag for the first 1 mS word 
; clear the last reception 

; then inc the count for insignad 

; clear the flag so writing into 3mS word 
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dr 

r^C COUNT 

inc 

RADtO_EX!T: pop 
tret 

INSIGNAL 

CP 

ip 

PULSEWOK 

JP 

BLANKWOK 

Id 
id 

sub 

sbc 

jr 

c?3 

jr 

Jf 

tm 

Jf 

NEGDIFF 

Id 

td 

&ub 

sbc 

cp 

jf 

K 

tm 

SETTOO 
SETT01. 

Id 
|r 

SETT02 

Id 

jr 

INCRECORD: 

tm 

Id 
Id 

add 
adc 
add 


radio3h 
rad!o3i 

radioc 

RADlO^EXtT 
RP 


rtimeah,#9D 
ugt.CLEARRADIO 

rbmeih.tSD 
ugt.CLEARRADIO 

rtemph.rtimeth 

rtempl.rtinneil 

nempl.rtimeal 

rtemph.rtimeah 

c.NEGDIFF 

rtemph.#OiH 

ugtSETTOO 

uH.SETTOl 

rtempl.#10000000B 

2.SETT01 

SETTOO 

rtemph.rttmeah 

rtempl.rtimea! 

riempl.rtimeil 

r1emph,rtimeih 

rtenriph.#01H 

ugt,SETT02 

ult.SETTOl 

rtempi.#10000CX)0B 

Z.SETT01 

SETT02 

RTEMP.#O0D 
INCRECORD 

RTEMP.#OTD 
INCRECORD 

RTEMP,#02D 
INCRECORD 


RFLAG,#01000000B 

Z.MS3RECORD 

riemph,rad(0lh 

rtempl. radio 11 

radio! I.rtempi 

rad(Olh,rtemph 

radfoll.nempi 


, clear the last reception 


, set the counler to the next word 


; reset the regtster pair 


. test the radio pulse width for 4 5mS 
, it greater then 4.5 then clear the radio 

. testnhe radio blank width (or 4 5mS 
; if greater then 4 5 then clear the radio 

; transfer pulse time to temp reg 

, subtract the pulse from the blank 

; if Ihe drfference is negttive then branch 

; test for a number 1 

, if greater then set 0 

. H less then 1 set to 1 

, test for 80 or greater 

; if the diff is less then 80h 

; else set to a zero 

: transfer pulse time to temp reg 

; subtract the pulse from the blank 

: test for a number 1 

; a greater then set 2 

; H less then 1 set to 1 

, test for 80 or greater 

; H the dtff is less then 80h one 

; else set to a two 

; set the bit value to a 00 
: goto adding into the record 

; set the btt valu^ to a 01 
; goto adding into the record 

; set the bit value to a 10 
; goto adding into the record 


test the radio flag for the area to be modiftng 
H the bit is deared then working the 3ms 
transfer the record to temp 
* 

add the number to H self 2* for tor base 3 
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acJc radiolh.rtemph 

add radioll.rtemp 

adc radio1h,#00h 

inc radioc 

cp radioc.#11D 

jr 2.GOTAWORD 

ip ugt,CLEARRADIO 

]r RADiO_EXIT 


WS3RECORD 


GOTAWORD 


WARK3REC 


DONEONE 


TESTFORTWO. 


brec 


tirr>ez2w]n 


Id rtemph,rad(o3h 

Id rlempi,radio3l 

add radioSl.rtemp! 

adc radio3h,rlemph 

add radio3l,flempi 

adc rad»o3h,r1emph 

add radioSl.rtemp 

adc radio3h.#00D 

inc radioc 

cp radioc.#1 1 D 

K z.GOTAWORD 

jp RADiO_EXiT 


tm RFLAG.#01000000B 

|r 2.MARK3REC 

or RFL^G,#OO01O0O0B 

K TESTFORTWO 

or RFLAG.#00001000B 

jr TESTFORTWO 

clf radioc 

ip RAD10_EXIT 

tm RFLAG,#OO01O0O0B 

jr z.DOf^EONE 

tm RFLAG ,#00001 OOOB 

jr 2.DONEONE 

tm RFLAG.#00100000B 

jr 2.KNOWCODE 

or RFLAG.#00000010B 

cp rtemp.#00 

Jp z.KNOWCODE 

or RFLAG.#00000100B 

cp 2ZW1N,#64D 

jr ugt.KNOWCODE 

cp STATE.#6 

jr r.timezzwin 

cp STATE.#5 

ir i.timezzwin 

cp STATE.#2 

jr z.timezzwin 

jr KNOWCODE 


, increase the radio counter 
, test for the last bit 
; if so we got a word 
; else garbage 

; else return till the next bit comes along 


transfer the record to temp 

add the number to it self 2* for for base 3 


add in the new value 

increase the radio counter 
test for the last bit 
if so we got a word 

else return till the next bit comes along 


; test the radio flag for the area we just modfing 
; if the bit is cleared then the 3ms is fiHed 
; set the flag 

; jump to test for two codes 
; set the flag 

, jump to test for two codes 

; dear the radio counter 

, return 

; test for the 1 mS word 

; we just have one code done 

; test for the 3mS word 

. we just have or»e code done 

; test the flag for BC 

; if A code we do nothing 

7set the B and C flag 

; test word 10 for a 0 *C* oodr 

; ff a C code were done 

; set the 6 code flag 

; test for 8 seconds from known B code 

; if not skip test 

; test for the stoj»ped state 

: if stopped test zzwin 

; test for the down limit 

: if at the down limit 

; test for at up limit 

; H at the limit jump 

; eise no way 


4 
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cp 

K 
cp 

,SETFB 

push 

srp 

call 

pop 

IP 

KNOWCODE 

cir 
cp 
IP 

)d 

call 

id 

cp 

ir 

STORECODE 

cp 
cp 

cp 

K 
cp 

call 

cp 

jr 

STORE MATCH 

tm 

tm 

ACODE 

Id 

call 

inc 

inc 

and 

cp 

ir 

td 

GOTAADDRESS- 
id 
Id 
LD 
call 
Id 
jf 

BCODE. 

cp 


rad)03h #90H , test lor the 00 code 
nz.KNOWCOOE 

radio3i.#29H , test (or the 00 code 

nz KNOWCODE ; 

RP 

#LEARNEE_GRP 

SETLEARN 

RP 

CLEARRADIO 


RRTO 

SKiPRADIO.fOFFH 
z.CLEARRADIO 

ADDRESS.#1EH 

READMEMORY 

VACFLAG.MTEMPH 

LEARNT.#OFFH 

z.TESTCODE 

PRADlOlH.radiolh 

nz.STORENOTMATCH 

PRADIOlL.rad»o1t 

nz.STORENOTMATCH 

PRADI03H,radio3h 

nz.STORENOTMATCH 

PRADI03L.radio3l 

nz.STORENOTMATCH 

TESTCODES 

ADDRESS.#OFF>H 

nz.NOWRITESTORE 


dear the got a radio flag 
test for the skip flag 

if sKip flag is active then donot look at EE mem 

set the non vol address to the VAC flag 

read the value 

save into volital 

test ior in leam mode 

if out of learn mo6e then test for matching 

test lor the match 

if not a match then loop again 

test for the match 

if not a match then loop again 

test for the match 

if not a match then loop again 

test for the match 

if not a match then loop agan 

test the code to see if in nr>emory now 

if there is a match pretend to store 


RFLAG.#00000100B ; test for the b code 

nz. BCODE ; rf a B code jump 

RFLAG.#0CX)00010B ; test for a C code 

nz.CCODE ; if a C code jump 

ADDRESS,#1 FH ; set the address to read the tast wntten 

READMEMORY ; read the memory 

MTEMPH : add 2 to the last written 

MTEMPH : 

MTEMPH.#11111110B ; set the address on a even rxjmber 

MTEMPH.#t7H ; test for the last address 

ull.GOTAADDRESS ; ii not the last address jump 

MTEMPH,#OOD ; set the address to 0 

ADDRESS.#1 FH ; set the address to write the last written 

RTEMP,MTEMPH ; save the address 

MTEMPL.MTEMPH ; both bytes same 

WRITEMEMORY ; write it 

ADDRESS,riemp ; set the address 

READYTOWRITE ; 

fadK>3h,#90H ; test lor the 00 code 
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BCODEOK: 


CCODE 


cp 

IP 

Id 

J'' 

Id 


READYTOWRITE 
call 

NOWRITESTORE 
xor 
or 
id 
Id 
cir 
JP 

STORENOTMATCH. 

Id 
Id 
Id 
Id 
jP 


nz, BCODEOK 
radto3[.#29H 
nz BCODEOK 
CLEARRADIO 

ADDRESS.#18H 
READYTOWRITE 

ADDRESS.#1AH 

WRITECODE 

pO #WORKLIGHT 

ledport.#iedh 

UGHT1S.#244D 

LEARNT.#OFFH 

RTO 

CLEARRADfO 

PRADlOlH,radio1h 

PRADIOU.radioll 

PRADi03H.radto3h 

PRADl03L.racfio31 

CLEARRADIO 


test for the 00 code 

SKIP MAGIC NUMBER 

set !he address tor the B code 

set the address for the C code 
wnte the code tn radio 1 and radio3 
toggle light 

turTfoff the LED for program mode 

turn on the 1 second blwik 

set leammode timer 

disallow cmd Irom team 

return 

transfer radio into past 
get the next code 


; test for a active tauH 

; if a avtve fault skip ted set and reset 

: turn on the LED lor flashirtg from signal 

; test the codes 

; test lor a active fauH 

; if a avttve fault skip led set and reset 

; turn off the LED for flashing from signal 

; test for the not matching state 

; if matching the send a command if needed 

; else dear the radio 


TESTVAC. 


TSTSDISABLE 


or 

RFLAG.#00000001B 

; set the flag for recievir>g without en-or 

cp 

RT0.#1D1D 

; test for the timer time out 

jr 

ultNOTNEWMATCH 

; if the timer is active then donot reissue cmd 

cp 

VACFLAG,#OOB 

; test lor the vacation mode 


Z.TSTSDISABLE 

; if not in vacation mode test the system disable 

cp 

ADDRESS.#19H 

; test for the B code 


nz.NOTNEWMATCH 

; if rK>t a B not a match 

cp 

SDISABLE.#32D 

; test for 4 second 

jr 

ult.NOTNEWMATCH 

; if 6 s not up not a^new code 

ctr 

RTO 

; dear the radio tinneout 

cp 

ONEP2.#00 

; test for the 1 .2 second Xune out 

j'' 

nz.NOTNEWMATCH 

; if the timer is active then skip the commarKj 


TESTCODE 


FSl 


FS2 


cp FAULTFLAG.#OFFH 

jr 2. FSl 

and !edport.#iedl 

call TESTCODES 

cp FAULTFLAG,#OFFH 

jr z,FS2 

or tedport,#tedh 

cp ADDRESS.#OFFH 

jr nz.GOTMATCH 

IP CLEARRADIO 


63 


5.780.987 


64 


RADIOCOMUAND 


zzwinclr. 


cir 

RTO 

; dear the radio ttmeout 

CP 

ADDRESS #19H 

; test tor a B ccxh 

K 

nz.BDONTSET 

; li not a b code do not set fiag 

cir 

2ZW1N 

; fiag got matchir>g B code 

Id 

BCODEFLAG,fr077H 

; flag for aobs bypass 


BDOMTSET 


TESTCODES 
NEXTCODE. 


cir 

LAST CMD 

; mark the last command as radio 

Id 

RADIO CMD.#OAAH 

; set ttie radio corrimand 

jr 

CLEARRADIO 

; return 

dr 

ADDRESS 

; start address is 0 

call 

READMEMORY 

; read the word at this address 

cp 

MTEMPKradiolh 

; test for the match 

K 

nz.NOMATCH 

; if not matching then do next address 

cp 

MTEMPUradolt 

; test for the match 

jr 

nz.NOMATCH 

; if not matching then do next address 

inc 

ADDRESS 

; set the second half of the code 

call 

READMEMORY 

; read the word at this address 

cp 

MTEMPH.rad»o3h 

; test for the match 


n2.NOMATCH2 

: if not matching then do the next address 

cp 

MTEMPL,rad)o3i 

, test tor the match 

jr 

nz.NOMATCH2 

; K not matching then do the next address 

ret 


; return with the address of the match 


NOMATCH; 
NOMATCH2 


mc 
cp 

V 


GOTNOMATCH 


ret 


ADDRESS 

ADDRESS 

ADDRESS,#1CH 

utt,NEXTCODE 


ADDRESS.#OFFH 


, set the address to the next code 

; set the address to the next code 

; test for the last address 

; if not the last address then try again 


, set the no match flag 

; and return 


NOTNEWMATCH: 
cir 
arxJ 
dr 
Id 


CLEARRADIO. 


CLEARRADIOA 


SKIPRTO 


Id 
tm 
dr 


RTO 

RFLAG.#OCfOOOOOlB 
racfioc 

LEARhTT.iroFFH 
RADIO EXIT 


iRQ,#001t111lB 
RINFILTER.#OFFH 

RFLAG,#00000001B 

z.SKiPRTO 
RTO 


; reset the radio time out 

; dear radio Hags leav'n^ redevin^ w/o en-or 

; dear tt>e radio bit counter 

; set the team timer turn off and backup 

; return 


; dea' the bit setting direction to r>e9 edge 
; set flaj to active 

; test for feceivir>g without en-or 

; tf f lag not set then donot dear timer 

, dear radio tirrter 
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cir radioc , clear the radio counter 

cir RFLAG ; dear the radio fiag 

)p RAD10_EXIT ; return 


LEARN DEBOUNCES THE L£ARN SWITCH BOtnS 
, TIMES OUT THE LEARN MODE 30 SECONDS 
DEBOUNCES THE LEARN SWITCH FOR ERASE 6 SECONDS 

LEARN 


TESTLEARN 


srp 

#LEARNEE_GRP 

; set the register pointer 

cp 

STATE.#DN POSITION , lest for motor stoped 


zTESTLEARN 


cp 

STATE.#UP_POSIT»ON ; test for motor stoped 

)r 

zTESTLEARN 


cp 

STATE,#STOP 

, test tor motor stoped 


z.TESTLEARN 

id 

teamt,#OFFH 

; set the team timer 


tearnt.*240D 

; test for the learn 30 second timeout 

F 

nz,ERASETEST 

; if not then test erase 


leamoff 

; rf 30 seconds then turn off the learn mode 

cp 

leam{ft).#236D 

; test for the debounced release 

jr 

nz.LEARNNOTRELEASED ; if the debouncer not released then jump 

cir 

leamdb 

; clear the debouncer 

ret 


; return 


LEARNNOTRELEASED: 


SETLEARN- 


ERASETEST. 


Cp 

leamt,#OFFH 

; test for team mode 

ir 

nz.lNLEARN 

; ri tn learn |ump 

cp 

leamdb.#20D 

; test for debour>ce period 

jr 

nz.ERASETEST 

; rf not then test the erase penod 

dr 

learnt 

, dear the learn timer 

Id 

leamdb,#OFFH 

; set the debouncer 

and 

ledport.#tedi 

; turn on the led 

cir 

VACFLj^G 

; clear vacation mode 

Id 

address,#1EH 

^ set the non vol address for vacation 

cir 

mtemph 

; dear the data for deared vacation 

dr 

mtempi 


Id 

skipradio,#OFFH 

; set the flag 

caU 

WRITEM EMORY 

; write the memory 

dr 

skipradio 

; dear the flag 

cp 

leamdb,#OFFH 

; test for learn button active 

jr 

nz,ERASERELEASE 

; if button released set the erase tinp»er 

cp 

efaset,#OFFH 

; test lor timer active 


nz.ERASETlMING 

; H the tinier active jump 

dr 

eraset 

; dear the erase timer 

cp 

eraset,#48D 

; test lor the erase period 


z.ERASETlME 

; if tinned out the erase 

ret 


: else we return 
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ERASETIME 


or 

ledport,#leclh 

, tuin oft the led 

Id 

skipradio #OFFH 

; set the flag to skip the radio read 

call 

CLEARCODES 

. ciear ait codes in memory 

cir 

skipradio 

, reset the flag lo skip radio 

Id 

learnt,#OFFH 

: set the team timer 

ret 


; return 


ERASERELEASE- 

Id eraset.#OFFH 
ret 


; turn oti the erase timer 
. return 


INLEARN 

CP 
jr 
Id 

TESTLEARNTiMER 
cp 
jc 

leamoff 

or 
id 
(d 


learndb.#20D 

nzJESTLEARhfriMER 

ieamdb.*OFFH 

teamt,#240D 
nz^ERASETEST 

(edpor1.#tedh 
ieamt.#OFFH 
leamdb.#OFFH 
ERASETEST 


test tor the debounce period 
if not then test the learn timer for time out 
, set the team db 

; test tor the team 30 secorKl timeout 
: if not then test erase 


, turn off the ted 
, set the team timer 
, set the leam debounce 
; test the erase timer 


WRITE WORD TO MEMORY 
ADDRESS IS SET IN REG ADDRESS 
DATA tS IN REG MTEMPH AND MTEMPL 
RETURN ADDRESS IS UNCHANGED 


WRITEMEMORY: 


push 

RP 

; SAVE THE RP 

srp 

#LEARNEE_.GRP 

; set the register pointer 

call 

STARTS 

; output the start bit 

Id 

seriai,#00110000B 

; set b/te to enable write 

call 

SERIALOUT 

routput the byte 

arkd 

csport,#csl 

: reset the chtp select 

call 

STARTB 

; output the start bit 

Id 

serial,#01000000B 

; set the byte for write 

or 

serial ,ad(^ess 

; or in the address 

call 

SERIALOLfT 

; output the byte 

td 

serial.mtemph 

; set tt^ first byte to write 

call 

SERIALOUT 

; output the byte 

td 

serial, mtempi 

; set tt>e second byte to write 

call 

SERIALOUT 

; output the byte 

call 

ENDWRITE 

; wait for the ready status 

call 

STARTB 

; output the start brt 

Id 

serial.#OOOOOOOOB 

; set byte to cfisable wrtte 

cali 

SERIALOUT 

; output the byte 

and 

csport,#csl 

; reset the chip select 
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pop 
ret 


RP 


. reset the RP 


. READ WORD FROM MEMORY 

. ADDRESS )S SET IN REG ADDRESS 

DATA !S RETURNED iN REG MTEMPH AND MTEMPL 
. ADDRESS IS UNCHANGED 


READMEMORY- 


push 

RP 


Sfp 

#LEARNEE_GRP 

; set the register pointer 

call 

STARTS 

, oulpul the start brt 

Jd 

serial,#10000000B 

; prsambJe for read 

or 

senal .address 

; or in the adciress 

call 

SERiALOUT 

; output the byte 

call 

SERtALlN 

, read the first byte 

id 

mlemph.senal 

, save the value in mtemph 

call 

SERlALiN 

; read teh secorid t>yte 

!d 

mtempi, serial 

; save the value in rritempl 

and 

csport,#csl 

; reset the chip select 

pop 

RP 

ret 




. WRITE CODE TO 2 MEMORY ADDRESS 

. CODE tS IN RADfOIH RADI01L RADi03H RADt03L 


WRITECODE 


push 

RP 

srp 

#iEARNEE_GRP 

id 

mtemph, RAD iOIH 

Id 

mtempt,RADi01L 

call 

WRtTEMEMORY 

IPC 

address 

Id 

mtenip^i^RADKDSH 

td 

mi&mpl,RADl03L 

call 

WRfTEWEMORY 

pop 

RP 


: se! the register pointer 

, transfer the data from radio 1 to the temps 

, write the temp bhs 
; next address 

; transfer the data from radio 3 to the temps 
; wrrte the temps 
; return 


, CLEAR ALL RADIO CODES IN THE MEMORY 


CLEARCODES 


CLEARC; 


push 

RP 


srp 

#LEARNE£ GRP 

; set the register pointer 

Id 

RADIOlH.#0FFH 

; set the codes to illegal codes 

ki 

RADlOlU#0PFH 

id 

RADlO3H,#0FFH 


td 

RADiO3L.#0FFH 


W 

address.#0OH 

; ciear address 0 

call 

WRITECODE 

; 'AC 
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inc 

address 

. set the nexi address 

CP 

address #1BH 

test for the iast address of radra 

K 

uit CLEARC 


clr 

mtemph 

, clear data 

dr 

mtempi 


Id 

address.#1FH 

; dear address F 

call 

WRtTEMEMORY 


pop 

RP 


ret 


, return 


'. START BIT FOR SERIAL NONVOL 

, ALSO SETS DATA DIRECTION AND AND CS 


STARTB 


and 

cspon,#csl 


and 

cIkport.#clockl 

; start by deanng the brts 

and 

diopon.^fdol 


id 

P2M,#(P2MJNrr+0) 

; set port 2 mode (orcing output mode data 

or 

cspon.#csh 

; set the diip sei&ct 

or 

dioport.#doh 

; set the data out high 

or 

dkpon,#ciockh 

; set the dock 

arKl 

dkport.#clockl 

; reset the clock low 

ard 

dioport.#doI 

; set the data low 

ret 


; return 


END OF CODE WRITE 


ENDWRiTE 

and 
nop 
or 
Id 

ENDWRITELOOP 
td 

and 


kj 
ret 


cspon.#csi 

csport.#csh 
P2M,#(P2M_lNrr+4) 

temph.diopon 

temph.#doh 

z.ENDWRfTELOOP 


and csport,#csl 


; reset the chip select 
; delay 

; set the dMp select 

; set port 2 mode iordng input mode data 

; read the port 
; mask 

; it the bH is k>w then loop til) we are done 
; reset the chip select 


P2M.#{P2M JNIT+O) ; set port 2 mode forcing output mode 


; SERIAL OUT 

; OOTPUT THE BYTE IN SERiAL 


SERIALOUT: 

Id 

Id 

SERIALOLrrLOOP 
rlc 
jr 

ONEOUT: 

or 


P2M,#(P2MJNrr+0) 
tempi. #8H 

serial 

ncZEROOUT 
dioport,#boh 


; set port 2 mode fordng output mode data 
, set the count for eight bits 

; get the bit to output into the carry 
: output a zero if no carry 

; set the data out high 
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ZEROOUT: 


or 

ctkport,#clockti 

, set the dock high 

arvd 

clkport.frclocki 

. reset the clock low 

arKj 

dioport #dol 

, reset the data out low 

djnz 

templSERIALOUTLOOP 



; loop tilt done 

ret 


, return 

and 

diopori.#dol 

; reset the data out low 

or 

dkport,#dockh 

, set the clock high 

and 

cIkport,#ciockl 

; reset the clock low 

arKt 

dioport.#dol 

; reset the data out (ow 

djnz 

tempi, SERIALOUTLOOP 



; loop tiil done 

ret 


; retorn 


. SERIAL tN 

. INPUTS A BYTE TO SERIAL 


SERIALIN 

Id 
Id 

SERIALINLOOP. 


DONTSET 


or 

rcf 
Id 

and 

jr 

scf 

rfc 
and 

d)n2 

ret 


P2M,#(P2M_lNrr+4) 
tempL#8H 

clkpor1,#clockh 

lemph, dioport 

ternph.#doh 

2.DONTSET 


; set port 2 mode forcing input mode data 
; set the count lor eight bits 

; set the dock high 
; reset the carry flag 
; read the port 
; mask out the bits 


serial 

c!kpon.#clockl 
lemplSERlALiNLOOP 


; sel the carry flag 

; gel the bit into the byte 
; reset the dock tow 

; loop till done 
; return 


. TIMER UPDATE FROM INTERUPT EVERY IrrvS 


TIMERUD. 


TASKO 


dec TOEXT ; decrement the TO extension 

inc TASKSWITCH ; set to the next swrtch 

and TASKSWrrCK#00000111B ;0-7 

tm TASKSWrrCH,#0O00O00lB ; test tor ocW 

jr n2.TK1357 ;H so then jump 

cp TASKS WiTCH ,#2d ; test for 2 

if 2JASK2 

cp TASKSWlTCH,#4d ; test for 4 

r 2JASK4 

cp TASKSWlTCH,#6d ; test for 6 

}r 2JASK6 


or 

ei 

push ip 


IMR.#RETURN_IMR ; turn on ttie intermpt 
; save the rp 
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srp 
call 
pop 
iret 


#T1MER_GR0UP 
switches 


, set the rp for tfie switches 
; tesi the switches 


TASKS: 


or 

ei 

push 

srp 

call 

pop 

tret 


IMR.#RETURNJMR 


#TiMER GROUP 
STATEWACHINE 


; turn on the interrupt 

save the rp 

do the motor function 
return the rp 


TASK4 

or IMR.#HETURN^IMR 
ei 

push rp 

srp #TIMER_GROUP 
call switches 
pop rp 
iret 


; turn on the interrupt 
; save the rp 

; set the rp for the switches 
; test the switches 


TK1357 

cp 
JP 

TASKS 

cp 
|f 

6ec 
Id 

enable J 1 

id 
or 
or 

continue* 

IP 

TASK6. 

Of 

ei 

push 

srp 

cali 

pop 

iret 


TASKSWITCH,#05D 
nz,TASK1357EXlT 


PWM_STATUS,#OFFH 

ne.enabiejl 

PWM_OFF 

nz.continue 

PWM^STATUS,#OOH 

PWM 0FF.#14H 

p3.#PWM_Ht 

tmr.#TiMERj_EN 

TASK1357EXfT 


iMR.#RETURN_IMR 

#TlMER_GROUP 
STATEMACHINE 


, test lor task 5 

; discharge for at least 2x 

; take pwm pin high 
; enable t1 

; EXIT UPDATING TIMERS 

: turn on the interrupt 

; save the rp 

; do tl>e motor function 
; return the rp 


TASK1357EX1T 

push RP 
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or IMR,#RETURNJMR , turn on the interrupt 
ei 

ca!l RS232 ; do the rs232 buss 

tm TASKSWITCH.#OO0OOD01 B ; test (or state a 1 tn bO 

ir 2.0NEMS 

tm TASKSW1TCH,#0000001 OB , test for state a 1 in bi 

jr z.ONEMS 

srp #TiMER_eROUP ; it a 3 or 7 tt»en do the auxJight 

call AUXLIGHT 


ONEMS 


NOFAIL 


FOURMS- 


TESTPERIOD 


FAREV. 


RPMTIX>NE 


SKIPLIGHTE 


Sip 

dec 

Id 


inc 
inc 
cp 
JP 

Cir 
cp 

dec 

di 
Clr 
cIr 
ei 

cp 
jr 
Id 
cp 

cfi 
dr 
dr 
er 
dr 
)r 

Id 

Id 

and 

kj 

call 

dec 

cp 

dec 


#LEARNEE_GRP 

AOBSTEST 

nz.NOFAIL 

AOBSTEST.#11d 

AOBSF.WOOOOOOOIb 

t4ms 
t125nnis 
|4ms,#4D 
n2jESTl25 

t4ms 

RPMONES.#O0H 
z,TESTPERlOD 

RPMONES 

RPM_COUNT 
BRPM_COUNT 

RPMTDONE 

RPMCLEAR,#OOH 

nz.RPMTDONE 

RPMCLEAR,#l22d 

RPM_COUNT.#50cl 

ugt.FAPEV 

RPM_COUNT 
BRPM_COUNT_ 

FAREVFLAG 
RPMTDOI^E 


; set the register pointer 

; decrease the aobs test timer 

; if the timer not at 0 then H didnot fail 

, it it failed reset the timer 

; set the tailed flag bit 

; increment the 4mS timer 
; increment the 125 mS ttmer 
; test for the time out 
; if not tme then jump 

; reset the timer 

; test tor the end of the one sec ttmer 
, if on© sec over then test the pulses 
; over the period 
; else decrease the tirr*er 

; start with a count of 0 
, starl with a count of 0 


; test the dear test timer tor 0 

; if not timed out then sktp 

; set the dear test time for r>ext cyde .5 

; test the count for too many pu^s 

; if loo man pulses then reverse 

; clear the counter 
; dear the counter 

: dear the flag temp test 
; continue 


FAULTCC)DE,#06h ; set the fautt Sag 
FAREVFLAG.#0a8H ; set the forced up flag 
pO.#'*L8 '^C WORKUGHT ; turn off light 
REASON,#80H ; rpm forcing up frxjtion 

SET AREV STATE ; set the autorev state 


RPMCLEAR 
LIGHT ■tS.#00 
Z.SKIPLIGKTE 
UGHT1S 


; decrement the timer 
; test for tlie end 

; down count the tight time 


79 


5.780.987 


80 


DONOTCB 

RTOOK 

SKIPRRTO 

PRSWCLOSED 

lEARNDBOK- 
TEST125 

N125 

ONE25MS 

SKIPAUXLEARNSW: 
TESTFA 

D012 


inc 

R DEAD TIME 



RTO.#101D 

: test ior the radio time out 

r 

ultDONOTCe 

, it not limed out bonot clear b 

cir 

BCODEFLAG 

, else dear the b code flag 

inc 

RTO 

, 1 Increment ttie radio time out 


ni.RTOOK 

; il the rad»o timeout ok then skip 

dec 

RTO 

. back torn 

cp 

RRTO,#0FFH 

; test ior tot 


z.SKIPRRTO 

, if so theri skip 

inc 

RRTO 

W 

temp.psport 

- , read the program switch 

and 

temp.#psmask 

, mask for switch 

ir 

2.PRSWCLOSED 

, if the swhch is closed count up 

cp 

(eamdb.#00 

, test for the non decrement point 


2 LEARNDBOK 

, tf at end skip dec 

dec 

leamdb 


LEARNDBOK 



inc teamdb , increase the learn debounce timer 

cp l€amdb.#OH , test tor overflow 

K nz, LEARNDBOK ; if not 0 skip back turning 

dec leamdb 


cp 

tl25ms.#125D 

, test for the time out 

ir 

z,ONE25MS 

, tf true the jump 

cp 

fi25ms,#€3D 

. test for the other timeout 

V 

ru.Nl25 


call 

FAULTS 


pop 

RP 


iret 



cp 

AUXLEARNSW,#OFFh 

; lest for the roftover position 


2.SK)PAUXLEARNSW 

; if so then skip 

inc 

AUXLEARNSW 

; ffu^ease 

cp 

Z2W1N,#0FFH 

; lest for the roll position 


2.TESTFA 

; tf so skip 

inc 

ZZWiN 

; if not increase the counter 

calt 

FAULTB 

; call the fautt blinker 

ctr 

1125ms 

. reset the ttmer 

inc 

di 

DOG2 

; incrwease the second watch dog 

inc 

SDISABLE 

; count off the system disable timer 

if 

nz,D0l2 

; if not rolled over then do the 1 .2 sec 

dec 

SDISABLE 

; else reset to FF 

cp 

ONEP2.#00 

. test for 0 

J*- 

iJNCLEARN 

; H csounted down then ir>cremertt learn 
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LEARNTOK 


ERASETOK. 


dec 0NEP2 


fault blinker 


FAULTB: 


TESTAOBSM 


NOPULSE. 


AOBSSH 


GOTFAULT 


inc 

leamt 

cp 

leamt.#OH 

Jf 

nz. LEARNTOK 

dec 

(eamt 

ei 
inc 

eraset 

cp 

eraset.#OH 

iLc 

nz.ERASETOK 


eraset 

pop 

RP 

iret 


Inc 

FAULTTIME 

cp 

FAULTTlME,#80h 

ir 

nz.FlRSTFAULT 

cir 

FAULTTIME 

cir 

FAULT 

cp 

FAULTCODE.#05h 

jr 

UGE.GOTFAULT 

cp 

CMD_DE8.#0FFH 


nz. TESTAOBSM 

cp 

FAULTCODE,#03h 

jc 

2.GOTFAULT 

Id 

FAULTCODE,#03h 


FIRSTFAULT 

tm 

AOBSF.#00000001b 


z.NOADBSFAULT 

1m 

AOBSF.#00000010b 


z.NOPULSE 

Id 

FAULTCODE#CWh 

ir 

GOTFAULT 

cp 

FAULTCODE,#04h 

\r 

z.GOTFAULT - 

Id 

FAULTCODE.#04h 

jf 

FnSTFC 

tm 

P3,#00000001b 

jr 

2.AOBSSH 

cp 

FAULTCODE.#01h 

jr 

2. GOTFAULT 

Id 

FAULTCODE.iK)lh 

l> 

FIRSTFC 

cp 

FAULTCODE.#02h 

jr 

2,GOTFAULT 

W 

FAULTCODE.#02h 

jr 

FIRSTFC 

Id 

FAULT.FAULTCODE 


. else cJown count 

; increase the team timer 

; test for overltow 

. It not 0 skip back turning 


, increase the erase timer 

, test for overflow 

; if not 0 skip back turning 


; increase the fault timer 

; test for the en<3 

. if not timed out 

■ reset the clock 

; clear the last 

; test for call dealer code 

: set the fauH 

, test the debouncer 

; not set test aobs 

; test for command shorted 

; set the enror 

. set the code 


test for the skiped aobs pulse 

if no skips then no fautts 

lest for any pulses 

H no pulses find if hi or low 

else we are intemnmem 

set the fault 

if same pot fautt 

test the tast fauft 

if same got (auft 

set the fautt 

test the input pin 
jump if aobs is stuck hi 
test for stuck low in the past 
set the fautt 
set the faurt code 

test tor stuck high in past 
set the fault 
set the code 


; set the code 
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NOAOBSFAULT 

FIRSTFC. 

FIRSTFAULT. 


swap FAULT 
K FIflSTFC 


BITONE 
TESTSDI. 

NOFAULT 


cir 
cir 


CP 
]f 

id 
cp 

)f 

qp 

tm 

and 
rel 


FAULTCODE 
AOBSF 


FAULT.#00 

z.NOFAULT 

FAULTFLAG.#OFFH 

LEARNT.#OFFH 

nz.TESTSDi 

FAULT. FAULTTI WE 

ULE.TESTSDI 


; clear the iault code 
; clear flags 

; test for no taun 

sel the fault flag 

test for not in learn mode 

if in leam then skip setting 


test the 1 sec bit 


FAULmME,#00001000b 

nz.BiTONE 

ledport#iedJ ; turn on the led 


or ledport,#iedh 
ret 

dr FAULTFLAG 
ret 


, turn off the led 


; clear the flag 


, MOTOR STATE MACHINE 


STATEMACHINE 




call 

RS232 



xor 

pO,#00001 000b 

; toggle aux output 


dec 

FORCE PRE 

; dec the prescaier 


cp 

DOG2.#8d 

; test the 2nd watchdog for probtem 

IP 

ugt.START 

; it probtem reset 


cp 

STATE ,#06d 

; test lor legat number 


IP 

ugt.start 

; if not the reset 


JP 

z,stop 

; slop motor 

6 

cp 

STATE ,#03d 

; test lor tegal number 


JP 

z, start 

; if not the reset 


cp 

STATE.#00d 

; test for autorev 


ip 

z.auto rev 

; auto reversing 

0 

cp 

STATE.#01d 

; test for up 


jp 

z.up direction 

; door is going up 

1 

cp 

STAT£,#02d 

; test for autorev 


JP 

i,up_position 

; door is up 

2 

cp 

STATE,#04d 

; test tor autorev 


ip 

z,dn_direciion 

; door ts Qoing down 

4 

JP 

dn^position 

; d'X>r is down , 

5 


. AUX OBSTRUCTION OUTPUT A^4D LtGKT FUNCTtON 
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AUXLIGHT 
lest Jig ht_on. 


NOlS 


dec_prejight. 


exrt_hght 


CP 

cp 

cp 

xor 
dr 

cp 

decw 

ir 

xor 

id 

*d 

dec 

ir 

ctr 

cp 

ir 

dec 

ir 

decw 

and 
ret 


LIGHT_^FLAG.#LiGHT 
2,dec _prejight 
LIGHT1S.#00 

LiGHTlS.#0"!d 

n2,N0lS 

pO #WORKL(GHT 

LlGHTlS 


test for no flash 
ii not skip 
test tor timeout 
it not skip 
toggle light 
oneshoted 


FLASH_FLAG.#FLASH 
nz.dec_prejight 
FUSH_DELAY 
nz.dec^prejtght 
pO.#WORKLlGHT 
FLASH DELAY_Hl,#FLASH_HI 
FLASH DELAY LO.#FLASH_LO 
FLASH^COUNTER 
n2.ctec_pre_hght 
FLASH_FIAG ; 

LlGHT„TIMER_Hi,#OFFH 
2,exit_light 
PRE^LIGHT 
nz.exitjight 

ligkt_™er 

nz.extl^iight 
pO.#''CLIGHT_ON 


; 250 ms period 
; toggle light 


test for the tinner ignore 
if set then ignore 
doc 3 byte light timer 


K tinner 0 tum oli the hght 
turn oft the light 

: return 


ALTTO REV ROUTINE 


auto rev 


LEAVEREV. 


cp 

and 

dr 

WDT 

cati 

kl 

and 

dt 

decw 
decw 

el 
Jf 


FAREVFl>G.#088H 

nz.LEAVEREV 

pO.#*LB '^C WORKUGHT 

FAREVFLAG 


HOLDFREV 
L1GHT_FLAQ,#LIGHT 


; test for the forced up flag 

; tum o« light 
; one shot temp test 

; kick the dog 

; hokj off the force reverse 
; force the light on no blink 


pO.iTLB -^C MOTOR_UP ^& #*C MOTOR.DN ; disable motor 


AUTO_DEUY 
BALrrO_DELAY 

nz.arswTlch 


; wait for .5 second 
; wart for .5 second 

; test switcties 


pO,#00001000b 


; set aux output lor FEMA 
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NOUPLIW 


arswitch 


e*ii_auto rev 



p2#UP LIMIT 

: test the limit 

K 

nz.NOUPLiM 

; t* limit set stop 

LD 

REASaN.#60H 

; set the reason as early timit 

JP 

SET_STOP_STATE 

. set stop 

Id 

REASON .#40H 

, set the reason for the change 

iP 

SET^UP_DiR_STATE 

, set the state 

Id 

R£ASON.#00H 

set the reason to command 

CP 

SW DATA.#CMD SW 

, test for a command 

iP 

z.SET STOP STATE 

, d so then stop 

Id 

R£as6n.#ioh 

, set the reasoTv as radio command 

CP 

RADIO CMD.#0AAH 

. test lof a radio command 

IP 

2,SET STOP STATE 

, )1 so the stop 

ret 


; return 


HOLDFREV 


W 

dr 
cir 
ei 
ret 


RPM0NEa#244d 
RPMCLEAR,#l22d 

RPM COUNT 
BRPM COUNT 


. set the t\o\6 off 

; ciea; rpm reverse .5 sec 

, start with a count of 0 
: start wrth a count of 0 


DOOR GOING UP 


up_direc1ion 


UPON 


UPOPF 


SKIPUPRPM 


WDT 

ca)l 

W 

and 
cp 

mc 
or 
cp 

r 


cp 

r 

td 


HOLDFREV 
LtGKT_FUG.tL)GKT 
pO,#*LB '^C MOTOR_DN 

MOTDEU#aFFH 

2.UPON 

MOTDEL 

pO.#L(QKT_ON 

WOTDEU#2Dd 

uie.UPOFF 


; kick the bog 
. hokJ off the toroe reverse 
; lorce the ligtrt on no Wink 
; disable down r»lay 

; lest tor done 

; if done skip delay 

; increase the delay timer 

; turn on the light 

; test for 40 seconds 

; m not timed 


pO,#MOTOR_UP *| #tK3KT_ON ; turn on t\e motor and bght 


cp 


FORGE_IG(NORE,«01 
ru.SKIPUPRPW 
RPM_ACOUNT.#02H 
ugfl. SKIPUPRPM 
FAULTCODE.#05h 

PORCE,iGNORE.#00 
n2,test_up_sw_pre 


lest fro the en^d of the force ignore 
if not dooot tost rpmoount 
test for less the 2 pulses 


; test timer for done 

; if timec not up do not test force 
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TES- 


_UP FORCE 

dec 
6ec 
ei 

V 
di 
Id 
Id 

sjb 
sbc 
tm 


^ailed^up^rpm 


t6St_Up_S#*_pre 


iest_Lip_sw 


upj)mii_dec 


get_sw 


l«st_upjtme. 


RPM_TiME_OUT 
BRPW TIME OUT 


. decrease the timeout 
, decrease the timeout 


2.failed_up,rpm 

. turn otf t^e tnlerrupt 
RPW_Srr DIFF LO.UP FORp£_LO 
RPM SET"DIFFIhlUP_F0R6E^H1 
RPM"srr~0IFF_tO,RPM_PERIOD LO 
RPM"SET"DtFF Hl.RPM_PERlOD "hI 
RPm'SET'DIFF^HI.IHOOODOOOB ~ ; test high bft (or s»gn 
2,test_up_sw , It the rpm penod is ok then switch 


JP 

tm 

V 
di 

dec 
dec 

ei 
tm 

jf 
Id 

W 
JP 

id 

ip 
kj 

cp 

jr 

IP 

»d 

decw 
JP 

ret 


REASON.#20H 
SET,STOP_STATE 

FORCE_PR£.#00000001 B 
n2,test_up_sw 

FORCE IGNORE 
BFORCE K3N0RE 


p2.#UP_LIM!T 
z up Jtmrt dec 
limrt.#LIMTT_COUr^ 
get_sw 

limn.get sw 
REASON #50H 
SET_UP^PO£.STATE 

REASON.#10H 
RADIO CMO,#OAAH 
2.SET STOP_STATE 

reas5n.#ooh 
sw_data.#cmd_sw 

ne-tes1_up_tifT>e 
SET_STOP^STAT6 

REASON.#70H 
MOTOR TIMER 
tSET STOP.STATE 


. set the reason as force 

; lesi for odd /2 
; if odd skip 


; enable interrupt 

; have we reached the Itmti'^ 


; dec detwunce count 
; set the reason as Irmrt 


; set the radio command reason 
; test for a radio command 
; if so stop 

; set the reason as a command 
; tesi for a commaf>d condrtton 


; set the reason as a lime out 
; decrenwTt motor timer 


; return to catier 


DOOR UP 


up _posrton. 


WDT 
arvi 


FAREVFlAG,#0B8H 
nz.LEAVELlGHT 
pO.#^LB *C WORKLIGHT 
UPNOFLASH 


; tuck the dog 

; test tor the torced up flag 

; torn of* light 

; skip clearing the flash flag 
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LEAVELIGHT 

Id 

UPNOFLASH 

Id 

and 
cp 

J'' 
Id 

Id 
cp 
jr 
ret 

SETDNDIRSTATE- 
Id 

iP 


worK_up 


up_pos_ret 


Jcor 
id 

ret 


L1GHT_FUG.#OOH 

iimtt#LIMiT COUNT 

pO,#^LB ^CM0TOR_UP 

SW_DATA.#LIGKr_SW 

2,work_up 

REASON,#10H 

RADIO_CMD,#OAAH 

z.SETDNDIRSTATE 

REASONI.#00H 

SW_DATA.#CMD_SW 

2.SETDNDIRSTATE 


ONEP2,#10D 

SET_DN_DIR 


STATE 


, attow blink 

^& MOTOR_DN ; disable motor 
; Ifght sw debounced? 

. set the reason as a radio command 

: test for a radio cmd 

, ti so start down 

; set the reason as a cx«nmand 

. command sw debounced? 

, if commafKj 


; set the 1 2 sec timer 


pO.#WORKLIGHT 
LIGHT_TIMER_H!,#0FFH 


DOOR GOING DOWN 


dn_d(rection 


DNON 


WDT 


call 

HOLDFREV 

cir 

FLASH FLAG 

kJ 

L!GKT>UG.#LIGKT 

and 

pO.#^LB MOTOR UP 

cp 

MOTDEL,#0FFH 


2.DNON 

inc 

MOTDEL 

or 

pO,#LIGHT ON 

cp 

WOTDEL.#20d 

K 

ule.DNOFF 


; toggle work fight 
; set the timer ignore 


; return 


; kick the dog 

; hold off the force reverse 

; turn off the flash 

. force the light on no blink 

; turn off motor up 

; test for done 

; if done skip delay 

, increase the <te(ay tinr>er 

; turn on the light 

; test for 40 seconds 

, if not timed 


DNOFF 


SKiPDNRPM: 


pO.#MOTOR_DN-|#LIQHT.ON ; turn on the motor and feght 


cp FORCE_K3NORE.#01 

jr nz.SKIPDNRPM 

cp RPM_ACOUNT.#02H 

jr ugt.SKtPDNRPM 

Id FAULTCODE.#05h 

cp FORCE.IGNORE.#00 

jr n2,t6st_dn_sw _pre 

cp ForceclDown.#1h 

jr 2,test_dn_sw_pre 


TEST_DOWN_FORCE: 
di 


test fro the end of the force ignore 
if not donot test rpmcounl 
test for less the 2 pulses 


; test timer for done 

; if tinr>er not up do not lest force 

; test the fiag to skip rpm if forcing down 
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dec 
dec 
ei 

d( 
Id 
Id 

sub 
sbc 
tm 
if 

1atled_dn_rpm 

id 
JP 

t6st_dn_sw_pre 

tm 

ir 
di 

dec 
dec 

1est_dn_sw. 

ei 
tm 

Id 

dnjimit_dec 

djnz 
Id 

cp 
K 
Id 

Jf 

TESTRADIO 

cp 
cp 

Id 

TESTFORCEIG 

cp 
Jf 
cp 

id 

NOAREVDN. 

and 

iP 

calt sw dn: 
~ W 
cp 

iP 

Id 
cp 


RPM_TiWE_OUT . decrease the ttmeout 

BRPM_T!ME_OUT ; decrease the timeout 

2.1a(£ed_da_rpm 

; turn off the interrupt 
RPM_S£T_D(FF_LO.DN_FORCE_LO 
RPM_SET_01rF„Hi.DN_FORCE_H! 
RPM_SET_DIFF_LO,RPM_PERtOD LO 
RPM_SET_D!FF_Hl,RPfJI_PERlOD HI 
RPrs4_SET_DlFF_Hr.#10000000B " ; lest high bit for sign 
z,test__dn_sw ; it the fpm period is ok then switch 


REASON.#20H " ; set the reason as force 

SET_AREV_STATE ; set the state 

FORCE_PRE.#00000001B ; test for odd /2 

n2,test_dn_sw ; if odd skip 

FORCEJGMORE 
BFORCEJGNORE 


turn on the rntemjpt 


p2.#DN_LJMrr 

are we at down timJt? 

2,dn limit dec 


limtt.#UMTT_COUNrr 

reset the limit 

cal(_sw_dn 


itmrt,ca!I sw dn 

dec debounce counter 

REASON,#50H 

set the reason as a limtt 

CMD DEB,#OFFH 

test for the switch still held 

nz, TESTRADIO 


REASON,#90H 

dosed with the control held 

TESTFORCEIG 


LAST CMD.#00 

test for the last command bemg rad»o 

nz.TESTFORCEIG 

if not test force 

BCODEFLAG.#077H 

test for the b code flag 

nz.TESTFORCElG 

REASON,#0A0H 

; set the reason as b code to limit 

ForcedDown.#00 

; test for force down action 

nz.NOAREVDN 

: H set skip early Umtts 

FORCE tGNORE.#00H 

; test the force igrK>re for done 

z,NOAREVDN 

; a rev if fimrt before force enabled 

REASON,#6C^ 

; earty lirmt 

SET_AREV_$TATE 

; set autoreverse 

pO,#*LB '^C MOTOR DN 


SET_DN_POS_STAfE 

: set the state 

REASON.#10H 

; set the reason as radio command 

RADIO CMD.fOAAH 

; test for a ra^o command 

2.SET AREV STATE 

; if so arev 

REASON,#00H 

; set the reason as command 

SW DATA.#CMD SW 

; test for commarxJ 
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test_dn_time. 


dec obs count 


OBSAREV. 


OBSTESTB 


do_reverse. 


;exi1 2 dn 


IP 
id 

d&cw 

ip 

djnz 
cp 
if 
cp 

r 

ret 

W 

kj 
ki 
id 
Id 
jP 

CP 

]r 
Id 

CP 

\f 

CP 

cp 

K 

cp 


ret 


i,SET_AREV_STATE 

REASON,#70H 

MOTOR_TIM£R 

2,SET_AREV_STATE 

obs_co unt , exjt_dn_di r 
LAST CMD.#O0 
2,OBSTESTB 
CMD_DEB.#OFFH 
nz.OBSAREV 


; set t^e reason as ttmeout 
. decrement motor timer 


, dec aux obs count 

; test for the last command from radio 

; if last command was a radio test b 

; test for the command switch holding 

; if the command switch (s not holding 

; do the autorev 

, otherwise skip 


FtASH_FLAG.#OFFH ; set flag 

FLASH COUNTER,#20 ; set for 1 0 flashes 

FLASH DELAY H1,#FLASH_H! , set for .5 Hz period 
FLASH DELAY LO.#FLASH LO 


R£ASON,#30H 
SET>REV_STATE 

BCODEFLAG,#077H 
nz.OBSAREV 

REASON,#0B0H 

FAREVFLAG,#0S8H 

n2,ex!t_2_dn 

CMD_DEB,#OFFH 

z.exit_2_dn 

LAST_CMD.#O0 

n2,do_reverse 

BCODEFLAG.#077H 

2,exit_2_dn 

SET AREV STATE 


, set the reason as autoreverse 


; test for the b code (lag 
; rf not b code then arev 

. set the reason as command not held 

; test forced up flag 

; if the forced up flag dear skip 

; test for a held command 

, if the command is held keep going 

; test for the last conrvnand betng radio 

; if not do reverse 

; test for the b code flag 

; if set skip till erther is released 

; set the autoreverse state 

, return 


DOOR DOWN 


dn_posrtion: 


WDT 

cp 

jr 

and 
K 


FAREVFLAG.#08eH 

nz.DNLEAVEL 

pO.#'^LB WORKLIGHT 

DNNOFLASH 


; kick the dog 

; test for the forced up flag 
; turn off Hght 

; skip clearing the flash flag 


cp ForcedDown.#01d 

jr z.TestMotofReV 

cp MOTOR_TIMER,#00d 

jr z.TestMolorRev 

decw MOTOR_TlMER 

dr RPM_ACOUNT 


; test tor toroe in past 

; if so the test motor motion 

; test for timed out 

; if timed out then test rev. 

; decrement motor tinker 

; dear the rpm counter 
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TestMotorRev* 


SkvpLock 

dnleavel- 
dnnofla.sk 



SKipLock 

, skip the lock tilt 27 sec ttmc^oul 

tm 

p2.#ON_LiMrr 

, ts th€ down limit still set 


Z.SkipLock 

; then skip the lock down 

cp 

RPM_ACOUNT.#10d 

, t€St for 2 rev 


ule,SkipLock 

; t1 (ess skip the lock down 

Id 

FofcedDown.#i h 

; set the flag to skip early limits 

P 

SET_DN_DIR^STATE 

; tore© the door down to dm 

Id 

LIOHT_FLAG,#OOH 

; allow blink 

Id 

Bmit.#LIMIT COUrfT 


and 

pO,#^LB MOTOR UP 

''&-#'^c' MOTOR_DN ; disable motof 

CP 

SW_DATA,#LJGHT_SW 

: debouaced? light 

jr 

2, work dn 


(d 

REASON.#10H 

; set the reason as a radio comn 

cp 

RADIO CMD.#OAAH 

; test for a radio conrvnand 

)r 

z.SETUPDIRSTATE 

; if so go up 

Id 

REASON.#00H 

, set the reason as a command 

CP 

SW DATA,#CMD SW 

; comnoand sw pressed? 


z.SETUPDIRSTAfE 

; it so go up 

ret 



SETUPDIRSTATE: 
Id 

ip 


work dn 


dn_pos_ret 


ONEP2.#10D 

SET UP DIR STATE 


)£or 
Id 

ret 

STOP 


pO.#WORKLIGHT 
LIGHT_TIM£R_H1.#0FFH 


; set the 1 .2 sec timer 


; toggle work light 
. set the timdr ignore 

; return 


stop 


LEAVESTOP. 


WDT 
cp 

V 

and 
kl 

and 
cp 

ki 
cp 
\P 
k5 
cp 
ff> 
ret 


FAREVFLAG,#OdeH 
nzXEAVESTOP 
pO.t'^LB '^C WORKUGKT 

U(^T_FLAG,#OOH 
pO.#'^LB '^C MOTOR_UP 
SW_DATA,#LIGHT_SW 
I.W0Tk Stop 

reas6n,#ioh 

radio_cmd.#0aah 

1.set_dn„d1r_state 

REASON.tOOH 
SW_DATA.#CMO SW 
z,SET_DN_DlR_StATE 


¥«>fk_stop' 


tor pO.#WORKLIGHT 


; kick the dog 

; test for the forced up flag 

; turn off iight 

; allow blink 
#*C M0TOR_DN ; dtsabte motor 
; debounced? Mght 

; set the reason as radio comnwd 
; lest for a radio command 
; H so go down 

; set the rttason as a command 
; oommarxl sw pressed? 
; if so go down 


; loggte work Kght 
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Id LIGHT__TIMER_H!,#OFFH . set the timer ignore 

stop_ref 

ret , return 


SET THE AUTOREV STATE 


SET_AREV_STATE: 

dt : 

Id STATE, #AUTO_REV ; if we got here, then reverse motor 

jr SET_ANY 


SET THE STOPPED STATE 


SET STOP_STATE. 

di 

id STATE.#STOP 

ir SET_ANY 

SET THE DOWN DIRECTION STATE 


; energize dcxjr 

; one shot ttie forced reverse 

; are we at down kmit? 

; ff not at limrt set dn 

; else set the dn position 


SET THE DOWN POSITION STATE 

SET_ON_POS_STATE 
di 

Id STATE,#DN_POSmON : load new state 

jr SET_ANY 


SET THE UP DiRECTKDN STATE 

SET_UP_DIR_STATE' 
di 

cir ForcedDown 

W STATE,#UP.DIR£CTION 

tm p2,#UP_UMrr 

jr nz.SET.ANY 


SET THE UP POSmON STATE 


SET_UP_POS_STATE : 
di 

Id STATE,#UP_POSfTJON 


SET_DN D}R_STATE: 
di 

id STATE,#DN_D1RECT10N 
cir FAREVFLAG 
tm p2.#DN LlMFT 
jr n2,SET_ANY 


clear the flag for skiptng aarty limrt 

have we reached the limit? 

if not set the state 

else fail throught set pos state 
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SET ANY STATE 


S£T_ANY 

W 
di 
dr 
Cir 
id 
id 
Id 
Id 
Id 
W 
ei 
clf 
dr 
Id 
Id 
id 
Id 
Id 

TURN_ON_LlGKT: 
Id 
td 
Id 
id 


lightoH 
ligliton 


dr 


ret 


BSTATE.STATE 


; set the backup state 
; dear the rpm counter 


RPW COUNT 
BRPM COUNT 

AUTOJdELAY Hl.#^UTO_Hi ; set the .5 secor^d auto r«v timer 
ALrrO_DELAY_LO.#AUTO_LO ; 

BAtJTO_DELAY_HI.#ALrrO_Hl ; set the .5 second auto rev timer 
BAaTO_DELAY_LO,#AirTO_LO ; 

FORCE_lGNORE,#ONE_SEC ; set tt^e force ignore timer to one sec 
8F0RCEJGN0RE.#0NE_SEC; set the lorce ignore timer to one sec 


RADIO_CMD 
RPM_ACOUNrT 
UMIT,#ttMrT_COUNT 
MOTOR TIMER_HI,#MOTOR HI 
MOTOR_TIMER_LO.#MOTOR LO 
STACKREASON.REASON 
STACKFLAG,#OFFH 


one shot 

clear the rpm acttve counter 


ttGHT_TIMER Hi,#SET TtME_H! 
UGHT_T)MER_LO,#SEf TIME_LO 
PRE LiGHT,#S£T_TlME_PRE 
LtGHTS.PO 

LIGHTS ,#WORKLIGHT 
nz. lighten 


; save the temp reason 
; set the flag 

; set the fight period 


MOTDEL 


; read the light state 
, t1 the tight is on skip dearing 
, dear the motor delay 


THIS THE AUXILARY OBSTRUCTION INTERRUPT ROUTINE 


AUX OBS 


Id 

and 
Id 
or 
iret 


OBS_COUJsrT,#6D 
(mr,#11110111b 
A0BSTEST,#11D 
AOBSF.#00000010B 


; reset pulse counter (no obstruction) 

; turn off the interupt for up to SOOuS 

; reset the test timer 

; set the flag tor got a aobs 

; return from int - 


THIS IS THE MOTOR RPM INTERRUPT ROUTINE 


RPM 

push 

srp 

W 

Id 

tm 

RPMTIMEERROR 


#RPM_GROUP 

fpmjemp_hiJOEXT 

rpm_tBmp_io,TO 

IRQ.#00010000B 

z,RPMTIMEOK 


; save current povtter 

;point to these reg 

; r«ad the timer extension 

; read the timer 

; test for a p6ndir>g trttemipt 

; rf not then tirr^e ok 
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tm 
6ec 


RPMTIMEOK: 


rpm Jemp Jo.#1 OOOOOOQ B 

2.RPMTIMEOK 

rpm_temp_ht 


and imr.#1 11 11011 b 


Id 
Id 
Id 
Id 

Id 
Id 

sub 
sbc 
tm 

jr 
Id 
Id 

sub 
sbc 

RPM_T»ME_FOUND- 
Id 
Id 
ei 
di 
cp 

cp 

TULS: 

cp 

K 

tm 
jr 

CLRC: 

dr 
clr 
et 
jr 

INCRPM: 

inc 
inc 

; inc 
SKIPC 

inc 
di 
Id 
Id 


SKIPPEDGE: 


pop 

iret 


rpm_2past_hi. rpnn_past_hi 
rpm_2pastJo,fpmj5ast_lo 
rpm_past_hi,rpfn_temp_hi 
fpm_past Jo, fpm_temp_lo 
rpm_ditf_hi,rpnn_2past_hi 
rpm_ditf_l0rrpm_2past_k> 
f pm_diff Jo ,rpm j3ast_lo 
rpm_diff_hi .rpm_past_hi 
rpm dift_hi.#10000000b 
z,RPM_TlME_FOUND 
rpm_drff_hi ,rpm_past_hi 
rpm_dtff_lo, rpm_past_lo 
rpm_d'itf_k),rpm_2pastJo 
rpm_ditf_hi,rpm_2past_hi 

fpm_penod_hi,rpm_dit1_hi 
rpm_period_lo,rpm_diffjo 


rpm_period_hi,#1 2D 

ult.SKIPC 

STATE,#05h 

z,CLRC 

STATE.#02H 
nz.lNCRPM 
P2.#UP_UMIT 
nz,INCRPM 

RPM COUNTT 
BRPM.COUNT 

SKIPC 

RPM_COUNT 

BRPM_couhrr 

RPM.ACOUNT 

RPM^COUNT 

rpfn_time out,#15D 
BRPM TIME OUT.tlSD 


HP 


, test tor timer reload 

; H no reload time is ok 

; H reloaded then dec the hi to resync 

, turn off the rnlerupt for up to 500uS 

save the past for testing 

transfer the present into the past 

transfer the past into the differef>ce 

find the difference 

test for neg number 

if the time is con-ect then jump 

transfer the temp mto the difference 

find the cfifference 
; transfer the difference to the period 


: test for a period of at least 6.l44mS 
; if the period is tess then skip counting 
; test for the down fimrt state 
; if set clear the counter 

test for the up limit state 

it not then increment the rpm state 

test for the up limit still set 

if not then set 

; dear the rpm counter 


; inaease tt>e rpm count 
; irKxease the rpm count 
; iTKxease the rpm count 

; increase the rpm count 

; set the rpm max period as 30mS 
; set the rpm max period as 30mS 
; if rpm not updated by then reverse 


; retunt the rp 
; return 
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THIS IS THE SWITCH TEST SUBROUTINE 
STATUS 

0 COMMAND TEST 

1 => WORKUGHT TEST 

2 «> VACATION TEST 

3 «> CHARGE 


SWITCH DATA 

0 => OPEN 

1 «> COMMAND 

2 WORKLfGHT 
4 VACATION 


CMD_SW 
LIGHT^SW 
VAC SW 


switches. 

call 
ei 
cir 
cp 

ip 
ip 

cp 

ip 

cp 

IP 

COMMAND^TEST; 

jf 

inc 
cp 
jr 

and 
or 
cp 
If 
cJr 


NOTF LASHED: 


RS232 

SW_DATA 

STATUS.#03d 

ugl.start 

z.charge 

STATUS.#02d 

z,VACATtON_T£ST 

STATUS.#01d 

Z,W0RKLIGHT TEST 


VACFLAG.#OOH 
Z.C0MMAND„TEST1 

VACFUASH 
VACFLASH.#10 
ult.COMMANO_TESTl 
p3.#CQHARGE SW 
p3.#DtS_SW 
VACFLASH.#60d 
nz,NOTF LASHED 
VACFLASH 


ret 


; sel th© default to open "idle* 
; test (or illegal rwmber 
; H so reset 

; if it is 3 then goto charge 

; test for vacation 

; \i so ttwn jump 

; test for workfight 

; if so then jump 

; else it id comn^and 

; test tor vacation mode 
, H not vacation skip flash 

; ir>crease the vacation flash timer 

; test tt>e vacation Hash period 

; if tower period skip flash 

; turn off wait switch 

: enable discharge 

; test the tnr»e delay for max 

; if the flash is not done jump and ret 

, restart ttie tinner 

; return 


COMMAND^TESTI. 

tm 

r 

tm 
K 


CMDCLOSED: 


call 
catt 
cp 


po,#swrrcHES 

rtt.CMDOPEN 
PQ .#100000008 
nz.CMDOPEN 

DECVAC 

DECLK3HT 

CMD_OEB.#OFFH 


; oommar>d sw pressed? 

; open command 

; test the second command inpLit 

; dosed commafKl 
; decrease vacation debounce 
; decrease light debounce 
; test for the max number 
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SKIPCMDINC 


GOT A CMD 


end 


SKIP LEARN 


CMDEXIT. 


CMDDELEXIT. 


di 
jnc 
inc 
ei 

cp 

if 

dt 
Id 
Id 
cp 
jr 

push 

srp 

calf 

Clr 

pop 

or 

call 

Id 

\6 

ei 

or 

and 

W 

Id 

ret 


2,SKIPCMD(NC 

CMD DEB 
eCMD DEB 


CMD_DeB.#CMD_MAKE 
nz,CMDEXIT 


LAST_CMD,#055H 

SW_DATA.#CMD_SW 

AUXLEARNSW,#100d 

ugt.SKIP_LEARN 

RP 

#IEARNEE_GRP 
SETLEARN 
SW DATA 
RP" 

pO.#LIGHT ON 

turn_onIlight 

CMD_DEB.#OFFH 
BCMD DEB.#OFFH 


, rf a1 the max skip inc 

; increase the debouncer 
; increase the debouncer 


; if not made then exit 


set the last command as command 
set the switch data as command 
test the time 


; set the team mode 
; clear the cmd 

; tum on the \igh\ 
; tum on the light 

; set the debouncer to ff one shot 
; set the debouncer to ff one shot 


; tum on the charge system 


p3.#CHARGE_SW 
p3,#CDIS_SW 

SWiTCH_DELAY,#CMD_DEL EX ; sel the delay time to 8mS 
STATU5.#CHARGE ; charge time 


CMDOPEN. 


DELLOOP. 


and p3,#'^LB *C CHARGE_SW 

Of p3,#DlS_SW 

Jd D£LAYC,#16d 

dec DEIAYC 

jr ru.DELLOOP 

tm pO.#SWITCHES 

jr nz.TESTWt 

cail DECVAC 

call DECLGHT 

call DECCMD 

W AUXLEARNSW,#OFFH 

jr CMDEXrr 


; cominar>d switch open 
; tum off charging sw 
; enable discharge 
; set the time delay 


toop till delay is up 
command fine still high 
if so return later 

h not open line dec aA det>ounoers 


tum oH the aux team switch 
and exit 


testwl 


Id 

ret 


STATUS.#WL TEST 


: set to test for a wortdight 
; return 


WORKLtGKT_TEST. 

tm pO.#SWITCHES ; command line still high 
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SKIPLIGHTINC 


GOT_A LIGHT 


if 

n2.TESTVAC2 

, exit setting to test for vacation 

call 

DEC VAC 

; decrease the vacatton debouncer 

call 

DECCMD 

, and the command debouncer 

cp 

LIGHT DEB.#OFFH 

; lest *or ihe max 

\f 

z.SKiPLIGHTiNC 

: H at the max skip inc 

inc 

LIGHT_DEB 

, *nc debouncer 

cp 

LIGHT DEB.ilftlGHT MAKE 

; test tor the light make 

K 

nz.CMDEXIT 

, if - * then rect^arge delay 

id 

LIGHT DEB.#OFFH 

, set the detwuncer to max 

\6 

SW DATA.#LIGKT Sy.^ 

; set the data as worklight 

CP 

RRfO.#10ld 

; test tor code reception 


ugt.CMDEXrr 

; rf not then skip the seting o1 llag 

clr 

AUXLEARNSW 

; start Ihe learn timer 

jr 

CMDEXIT 

; then recharge 


TESTVAC2 


LIGHTDELEXtT 


id 
Id 

r 

ret 


VACATION_TEST. 

djnz 

tm 

call 
call 
cp 
K 

irvc 


VACIWCSKIP. 


VACIN 


VACOUT- 


cp 

r 


GOT A VAC 


ir 

Id 
ki 

VACATION^EXrr. 

ki 
ki 

VACDELEXIT. 

ret 


EXrT_ERROR. 


STATUS.#VAC_TEST 
swttch_deiay .#VAC_DEL 


swttch^detay , VACDELEXiT 

pO.#SWITCHES 

nz.EXIT.ERROR 

DECLIGKT 

DECCMD 

VAC_DEB.#OFFH 

z.VAClNCSKiP 

VAC_DEB 

VACFLAG.#OOH 
2,VACOLrr 

VAC_DEB.#VAC„MAK£JN 

nz.vACATioN Exrr 

GOT A VAC 


; set the next test as vacation 
; set the delay 

; return 


; commartd fine still high 

; exit with a error setting open state 

; decrease the light debouncer 

; deaease the command det>ouncer 

; test for the max 

; skip the incrementirvg 

; ifK vacation debour»cer 

; test lor vacation mode 
; if not vacation use out time 

; test for the vacation make point 
; exit it not made 


VAC DEB.#VAC_MAKE OUT 
nz,VACATION_EXIT 

VACCHANG£.#OAAH 
VAC OEB,#OFFH 


; test for the vacation make point 
; exit ff not made 

: set the toggle data 

; set vacation debour>oer to max 


SV/rrCH_DELAY,#VAC_DEL EX ; set the delay 
STATUS.#CHARGE : set the next test as charge 


call 
cad 


DECCMD 
DECVAC 


; decrement the debouncers 
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call 
Id 
Id 
ret 


DECLIGHT 

SW1TCH„DELA.Y,#VAC_0EL_EX , set the delay 
STATUS.#CHARGE ; set the next lest as charge 


charge 


charge_ret 


or 
and 

dec 

Id 
ret 


p3.#CHARGE SW 
p3,#CDIS SW 

switch3£lay 

nz.cha rge_ret 
STATUS.#CMD_TEST 


DECCMO 


SKtPCMDDEC, 


OECCMDEXIT 


)»- 

di 

dec 
dec 
ei 

cp 

ir 
di 

cir 
cir 

et 


CMD_DEB,#OOH 
z,SKlPCMDDEC 

CMD_DEB 
BCMD DEB 


CMD_DEB,#CMD_8REAK 
nz.DECCMDEXrr 

CMD_DEB 
BCMD DEB 


; test for ihe min number 
; if at the min skip dec 

; decrement debouncer 
; decrement debouncer 


; if not a1 break then exH 
; if not break then exit 

; reset the debouncer 
, reset the debouncer 


; and exit 


DECL»GKT 

cp 
dec 

SKIPUGHTDEC, 
cp 

if 

cir 

DECIIGHTEXIT 
ret 


L1GHT_DEB,«00H 
Z.SK1PLH3KTDEC 
UGHT^DEB 

LIGHT DEB.#UGHT_BREAK 
nz,DECUGHTEXlT 
LIGHT DEB 


; test lor the min number 
; rf at the min skip dec 
; decrement debouncer 

; tf not al break then exit 
; if not break then exit 
; reset the debouncer 

; and exit 


DECVAC: 


SKIPVACDEC 


DECVACIN 


cp 

VAC DEB.#OOH 

. test for the min number 


2,SKIPVACDEC 

; if at the min skip dec 

dec 

VAC.DEB 

; decrement debouncer 

cp 

VACFLAG.#OOH 

: test for vacation ffiode 


z.DECVACOLTT 

; a not vacatvon use out time 

cp 

VAC_OeB.#VAC_BREAKJN 

; test for the vacation l>reak point 
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}r nzDECVACEXrr , exit j1 not 

jf CLEARVACDEB 

DECVACOUT: 

cp VAC_DEB,#VAC_BREAK_OUT , test for the vacation break point 

jr nz.DECVACEXfX , exit li not 
CLEARVACDEB 

clr VAC_DEB , reset the debouncer 

DECVACEXIT. 

ret ; and exit 


THIS ROUTINE GENERATES THE RAMP FOR THE COMPARATORS 


PWM; 


test_up. 


update_j)wm 


DN_ADDRESS„OK: 

Id 
Id 
sub 


push 

'P 

; save current pointer 

sip 

#PWM GROUP 

and 

p3.#^CPWM HI 

; take pwm output low 

tm 

pO,#CX>WN_COMP 

; was rt down torce? 


nz tes1_up 

; no, test up torce 

Id 

dn_temp, pulsewidth 

; save setting 

tm 

pO.#UP_COMP 

; up torce trip? 

K 

ru.update_pwm 

; should be high 

Id 

up_temp, pulsewidth 

; save setting 

add 

pulsewidth, #4 

; increase pulsewidth 

djnz 

pwrr;_count , pwm_exit 


_ADDR£SS: 


ei 


; turn on stacked intera 

rcf 


rrc 

dn_temp 


ret 



n-c 

dnjemp 

!/2 

ret 



nrc 

up_lemp 

:/2 

ret 



rrc 

up temp 


Id 

DNFORCE.dn temp 

; save the values 

id 

UPFORCE.upJemp 


cp 

dn temp,#064d 

; test the last address 

jr 

ult.DN_ADDRESS.OK 

; if in the range ok 

Id 

dnjemp.#064d 

; if out of the range set 


torce_add_hi. dn^tecnp 

dnJernp.#S4d 

dn_terT^,fofce_add_hi 


; REVERSE THE ROTATION 


W <orce_add„hi,#^hb force table_60 
Id torce add )o,t^tb force table 60 
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DN60 


tm 
V 

w 

td 

add 
a6c 
add 
adc 

di 
Idc 
incw 
Idc 

ei 


p2,#00T 00000b 
nz.DNGC 

1orce_add_hi #^hb forc€_table_50 
forc€_add lo.#Nb iorce table 50 


test the 50^60 bit 


lorce_add_(o dnjemp 
lorce_add_hi #00h 
torce_addJo,dn_temp 
force_add_h».#OOh 


dri_force_hi,@>force_add _ 
force_add 

dn_forcejo,@torce add 


calculate the address add 2X ternp 
calculate the address add 2X temp 


get hi byte 
get low byte 


Id 

UP_ADDRESS_OK 

td 
Id 

sub 

Id 
Id 
tm 

w 

Id 

UP60 

add 
adc 
add 

adc 

di 
Idc 

(dc 
ei 

GOT_FORCE: 

Id 
Id 
Id 
Id 
Id 


pwm_exn. 


Id 

pop 
iret 


up_temp,#oe4d 

uH.UP_ADDRESS_OK 

up_temp,#064d 


force_add_hi,up_temp 
up_temp,#64d 
up_temp ,f orce_add_hi 


; test the last address 

; if m the range ok 

; if out of the range set to the top 


; REVERSE THE ROTATION 


forc€_add_hi.#'^hb fofcejable_60 

torce^addjo.irib forcejable_6D 

p2.#6bl 00000b ; test the 50/60 bit 

nz.UPeo 

force, add_hi.#^hb force Jab(e_50 
force_add_io.#'^lfa force_table_50 


force_addJo.up_tomp 
force_addlhi,#00h 
1orce_addJo.up_temp 
forceIadd_hi,#OOh 


up_1orce_hi,@>force_add 
k>rce_add 

upJorceJo,@force_add 


calculate the address add 2X temp 
calculate the address add 2X temp 


get hi b^1e 
get low byte 


PWM_STATUS,#OFFH ; 
pwm_count.#TOTAL PWM COUHX ; max count 
pulse¥rtdih.#M(N_COUNT ; set initial pulsewidth 
dn_temp,#MlN_COUNT ; start mitial pw 

upJemp,#MiN_COUKT ; 


ti, pulsewidth 


; load timer with pulse 
; restore pointer 
; return from int 
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. 66 

FORCE TABLE 


force tBbte 

_60: 


S 0* 

.word 

ODACH 

S 1 

.word 

ODACH 

S 2 


0DC5H 

S 3 

,worci 

ODDEH 

S~A 

.word 

0DF7H 

S~S 


OEIOH 

S~6 


0E29H 

S~7 


0E42H 

S~8 

.wo 


S~9 


DE6DH 

S~10 


riPVPW 
uc f ~n 

S~1 1 


0E91 H 






0EA5H 

S~14; 



S~15. 

wonj 

DE&9H 

s'le 

-word 

0EC3H 

S 17. 

.word 

OECDH 

S 18 

.word 

0ED7H 

S 19 

.word 

0EE1H 

S 20' 

.word 

DEEBH 

S 21, 

.word 

0EF5H 

S 22 

.word 

OEFFH 

S 23 

.word 

0F09H 

S 24 

.word 

GF13H 

S 25 

.word 

OfiDH 

S 26 

.word 

0F27H 

S 27 

.word J 

0F31H 

S 28 

.word 

0F3BH 

S 29 

.word 

OF45H 

S 30 

.word 

0F4FH 

S 31. 

.word 

0F59H 

S 32 

.word 

0F63H 

S 33- 

.word 

0F6DH 

S ^A : 

-word 

0F86H 

S 35 

.word 

0F9FH 

S 36: 

.word 

0FB8H 

S 37 

.word 

OFDOH 

8.38 

.word 

OFEAH 

S^39 

.word 

1003H 

S 40 

.word 

101CH 

S 41 

.word 

1035H 

S 42 

.word 

104EH 

S 43 

.¥W>fd 

1067H 

S 44 

.word 

1099H 

S 45. 

.word 

10CBH 

S 46. 

.word 

10FDH 

S 47. 

.word 

112FH 

S 48; 

.v>«>rd 

1161H 
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S_49 
S_50 
S.ST 
S_52 
S_53 
S_54 
S_55 
S_56 
S_57 
S_5e 
S 59 
S_60 
S_61 
S_62 
S_63 
S 64 


.word 
.word 
.word 
.word 
.word 
.word 
.word 
.word 
.word 
.word 
.word 
.word 
.word 
.word 
.word 
word 


FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 


1193H 
"HC5H 
1229H 
125BH 
12BFH 
1323H 
13C1H 
14FCH 
16D6H 
1&4DH 
1C62H 
201 4H 
2465H 
2954H 
2EE0H 
2EE0H 


end 
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What is claimed is: 

1. A barrier operator for opening and closing a ino\'able 
barrier, comprising: 

a barrier drive: 

means for detecting motion of the movable barrier; 5 
means for detecting uhen a barrier command signal has 

been given lo the barrier drive: 
means for storing a commanded state of the barrier drive: 
means for comparing the commanded slate with the 

motion indicated by said barrier motion detection ^° 

means, and fc^ indicating if the motion conflicts with 

the commanded state: and 
means for generating an alarm signal in response lo the 

conflict indication of said comparing means, 

2. A barrier operator for opening and closing a movable 
barrier according to claim 1. further comprising means for 
enabling the alarm signal generating means a preselected 
time interval following closure of the barrier. 

3. A barrier operator for opening and closing a movable - 
barrier according to claim 2, further comprising means for ^ 
optically deterting the presence of an obstacle adjacent the 
barrier and producing an obstacle detection signal in 
response thereto, said obstacle detection means being inhib- 
ited in response to the means for enabling alarm signal 
generation. 

4. A barrier (^rator for opening and closing a movable 
barrier according to claim L further conaprising a barrier 
position detection switch for generating a barrier closure 
signal when the barrier is substantially closed and providing 
the barrier closure signal to the means for generating the 
alarm signal indicative of the fact that the barrier has been 
closed. 

5. A barrier operator for opening and closing a movable 
barrier according to claim 1. further comprising means for 
causing the barrier drive to supply a closing force to the 
movable barrier in response to the alarm signal from the 
means for generating the alarm signal. 

6. A barrier operator for opening and closing a movable 
barrier according to claim S, further comprising means for 
the barrier drive to cease supplying a closing force after a ^ 
predetermined time interval. 

7. A barrier operator for controlling a movable barrier, 
comprising. 

a down limit detector disposed to indicate whether said 
barrier is at a closed position not; 

memory means for storing one of a set of states of said 
barrier, the set of stales including a CLOSED slate 
indicating said barrier is closed; 

alarm generation means, responsive lo thj barrier state ^ 
stored by said memory means and said down limit 
detector, for generating an aiann signal when the stored 
barrier state is CLOSED and said down limit detector 
indicates said barrier is not at a closed position: and 

alarm enabling means for enabling said alarm generation 35 
means a preselected time interval after said barrier is 
closed. 

8. A barrier operator according to daim 7. wherein said 
alarm enabling means is responsive to an indication from 
said down limit detector that said barrier is closed for 
initiating the preselected time interval. 

9. A barrier operator according to claim 7* further com- 
prising: 

down motor signal means, for providing a down motor 
signal in response to said alarm signal: and es 

a barrier drive responsive to said down motor signal for 
closing said baxrier 
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10. A barrier c^craior according to claim 9, funher 
comprising: 

obsiacle detector fOT detecting an obstacle to movement of 
said barrier, and for generating an obstacle signal in 
5 response thereto: and 

means for disabling said barrier drive in response to the 
obstacle signM. 

11. A barrier operator according to daim 10. wherein said 
obstacle detector comprises: 

an optical li^t enaitter for emitting light: and 
an optical light detector for receiving the light from said 
emitter, and generating a signal indicative of whether 
light is received from said emitter or not. 
15 12. A barrier operator according to claim 9. wherein said 
alarm enabling means is disposed to continuously enable 
without a preselected time delay said alarm generation 
means after said alarm generation means has generated an 
alarm signal, and after said barrier drive has closed said 
20' barrier in response to said alarm signal. 

15. A barrier operator according to claim 9. further 
comprising: 

a barrier drive motion detector for detecting actual motion 
of said barrier drive and generating a motion signal 
25 indicative thereof: wherein 

said alarm generation means receives the motion signal 
and generates the alarm signal when the stored barrier 
state is CLOSED, said down limit detector indicates 
said barrier is not at a closed position, and said motion 
dctcaor indicates motion of said barrier drive. 

14. A barrier operator according to claim 9. further 
comprising: 

a command signal receiver for receiving a signal com- 
manding said barrier to open, and generating an indi- 
cation thereof: and 

means for providing an up motor signal in response to the 
rcccivo indication; wherein 

said barrier drive responds to the up motor signal by 
40 opening said barrier; and 

said memorj' means stores a state selected &om the set of 
barrier stales, other than the CLOSED state, in response 
to the receiver indication. 

15. A garage door operator for opening and closing a 
45 garage door, coir^jrising: 

a motor for moving the garage door: 
a down limit detector, for indicating when the garage door 
is moved to a dosed position by said motor; 
^ timer means enabled by the indication from said down 
limit detector that the garage door is closed, disposed to 
indicate when a preselected interval has expired: 
command signal means for receiving a commanded state 
of the garage door; and 
55 a microprocessor responsive to said command signal 
means for causing said motor to move the garage door 
to the commanded state, disposed to cause the motor to 
close the garage door when said timer means indicates 
the preselected interval has expired, said down limit 
60 detector indicates the garage doOT is not closed, and 
said command signal means has not received a new 
coroixuLnded state. 
16. A garage door operator according to claim 15. further 
comprising: 

65 a tachometer for delecting rotation of said motor, and for 
providing an indication thereof to said microprocessor, 
wherein 
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said microprocessor is disposed to cause said motor to 
close the garage door when said timer means indicates 
the preselected inter\-al has expired, said tachometer 
indicates said motor has rotated beyond a preselected 
threshold, and said cormnand signal means has not 
received a new commanded state. 
17. A garage door operator according to claim 15, further 
coit^)rising: 

an c^lical obstacle detector, for optically detecting the 
presence of an obstacle adjacent the garage door and 
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producing an obstacle detection signal in response 
thereto, wherein 
said microprocessor is responsive to the obstacle detec- 
tion signal to cease causing said motor to close the 
garage door. 

18. A garage door operator according to claim 15. wherein 
said command signal means comprises a radio frequenc\ 
receiver. 


18 . A barrier operator for opening and closing a movable 
barrier . comprising : 

a barrier drive; 

a motion detector for detecting motion of the movable 
barrier ; 

a command signal detector for detecting when a barrier 
command signal has been given to the barrier driver- 
circuitry for storing a commanded state of the barrier 
drive ; 

a controller for comparing the commanded state with the 
motion indicated by said barrier motion detector, and for 
indicating if the motion conflicts with the commanded state; 
and 

a signal generator for generating an alarm signal in 
response to the conflict indication of said controller. 

19 . A barrier operator for opening and closing a movable 
barrier according to claim 18, further comprising apparatus 
for enabling the alarm signal generator a preselected time 
interval following closure of the barrier. 

20 . A barrier operator for opening and closing a movable 
barrier according to claim 19, further comprising an obstacle 
detector for optically detecting the presence of an obstacle 
adjacent the barrier and producing an obstacle detection 
signal in response thereto, said obstacle detector being 
inhibited in response to the signal generator for enabling 
alarm signal generation . 

21 . A barrier operator for opening and closing a movable 
barrier according to claim 18. further comprising a barrier 
position detection switch for generating a barrier closure 
signal when the barrier is substantially closed and providing 
the barrier closure signal to the signal generator indicative 
of the fact that the barrier has been closed. 

22. A barrier operator for opening and closing a movable 
barrier according to claim 18, further comprising apparatus 
for enabling the barrier drive to supply a closing force to 


the movable barrier in response to the alarm signal from the 
signal generator for generating the alarm signal. 

23 . A barrier operator for opening and closing a movable 
barrier according to claim 22, wherein the barrier drive 
ceases supplying a closing force after a predetermined time 
interval . 

24 . A barrier operator for controlling a movable 
barrier, comprising : 

a down limit detector disposed to indicate whether said 
barrier is at a closed position or not ; 

memory for storing one of a set of states of said 
barrier, the set of states including a CLOSED state indicating 
said barrier is closed; 

an alarm generator, responsive to the barrier state 
stored by said memory and said down limit detector, for 
generating an alarm signal when the stored barrier state is 
CLOSED and said down limit detector indicates said barrier is 
not at a closed position; and 

an alarm enabler for enabling said alarm signal generator 
a preselected time interval after said barrier is closed. 

25 . A barrier operator according to claim 24 , wherein 
said alarm enabler is responsive to an indication from said 
down limit detector that said barrier is closed for initiating 
the preselected time interval. 

26 . A barrier operator according to claim 24 , further 
comprising : 

down motor circuitry, for providing a down motor signal 
in response to said alarm signal; and 

a barrier drive responsive to said down motor signal for 
closing said barrier. 


27 . A barrier operator according to claim 26, further 
comprising : 

obstacle detector for detecting an obstacle to movement 
of said barrier, and for generating an obstacle signal in 
response thereto; and for disabling said barrier drive in 
response to the obstacle signal. 

28 . A barrier operator according to claim 27, wherein 
said obstacle detector comprises: 

an optical light emitter for emitting light; and 

an optical light detector for receiving the light from 

said emitter, and generating a signal indicative of whether 

light is received from said emitter or not. 

29 . A barrier operator according to claim 26, wherein 
said alarm enabler is disposed to continuously enable without 
a preselected time delay said alarm generator after said alarm 
generator has generated an alarm signal, and after said 
barrier drive has closed said barrier in response to said 
alarm signal. 

30 . A barrier operator according to claim 26, further 
comprising : 

a barrier drive motion detector for detecting actual 
motion of said barrier drive and generating a motion signal 
indicative thereof; wherein 

said alarm generator receives the motion signal and 
generates the alarm signal when the stored barrier state is 
CLOSED, said down limit detector indicates said barrier is not 
at a closed position, and said motion detector indicates 
motion of said barrier drive. 

31 . A barrier operator according to claim 26, further 
comprising : 

a command signal receiver for receiving a signal 
commanding said barrier to open, and generating an indication 
thereof; and 

circuitry for providing an up motor signal in response to 


the receiver indication; wherein 

said barrier drive responds to the uv motor signal bv 
openincf said barrier; and 

said memory stores a state selected from the set of 
barrier states > other than the CLOSED state, in response to 
the receiver indication. 

32 . A garage door operator for opening and closing a 
garage door, comprising: 

a motor for moving the garage door; 

a down limit detector, for indicating when the garage 
door is moved to a closed position by said motor; 

a timer enabled by the indication from said down limit 
detector tha t the garage door is closed, disposed to indicate 
when a preselected interval has expired; 

a comma nd signal receiver for receiving a commanded state 
of the garage door; and 

a microprocessor responsive to said command signal 
receiver for causing said motor to move the garage door to the 
comman ded state, disposed to cause the motor to close the 
garage door when said timer indicates the preselected interval 
has ex pired, said down limit detector indicates the garage 
door is not closed, and said command signal receiver has not 
received a new commanded state. 

33 . A garage door operator according to claim 32, 
further comprising : 

a tachometer for detecting rotation of said motor, and 
for providing an indication thereof to said microprocessor; 
wherein 

said mi croprocessor is disposed to cause said motor to 
close the garage door when said timer indicates the 
preselected interval has expired, said tachometer indicates 
said motor has rotated beyond a preselected threshold, and 
said command signal receiver has not received a new commanded 
state . 


34^ A qara cre door operator according to claim 32, 
further comprising : 

an optical obsta cle detector, for optically detecting the 
presence of an obstacl e adjacent the aarage door and producing 
an obstacle detectio n signal in response thereto, wherein 

said microproce ssor is responsive to the obstacle 
detection signal t o cease causing said motor to close the 
garage door . 

3_5^ A garage door operator according to claim 32. 
wherein said comman d signal receiver comprises a radio 
frequency receiver . 

A barrier oper ator for opening and closing a barrier 
comprising : 

a command signa l receiver for receiving barrier open and 
barrier close signals directing the opening or closing 
, respectively of the barrier; 

a barrier drive responsive to barrier open and barrier 
close signal s for opening and closing the barrier, 
respectively; 

a closed limit d etector for sensing the closed state of 
the barrier; and 

a barrier cont roller responsive to received command 
signals and the clos ed limit detector for generating an alarm 
signal when the barri er has been in the closed position and an 
attempt is made to r aise the door when no door open command 
has been received . 

^-2^ A barrier oper ator according to' claim 36 comprising 
a timer enabled bv the closed limit detector for indicating 
that a predet ermined period of time has passed, 

A barrier oper ator according to claim 3 6 wherein the 
barrier drive responds to the alarm signal bv applying a 
closing force to the barrier. 


1^ A meth od of controlling a movable barrier for 
movement between an o pen position and a closed position 



comprising : 

receiving barrier movement commands including barrier 
open commands directin g opening movement of the barrier and 
barrier close comman ds directing a closing movement of the 
barrier ; 

movi ng the barrier to the closed position in response to 
a barr ier close command; 

sensing that th e barrier has been moved to the closed 
position; and 

generating an alarm signal when the sensing step 
indicates that the barr i er has moved from the closed position, 
and the receiving step does not indicate that a barrier open 
command has been received. 

The method of claim 39 comprising directing closing 
movement of the barri er in response to the alarm signal. 
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ABSTRACT 


A movable banicr or garage door operator has a bamer drive 
fcH- raoviag the raovablc buricr or garage door between open 
and closed poskioBs. Motion of the barrier is detected by a 
tachometer coa»ectcd to the barrier drive or by upper and 
lower barrier trarcl limit switches. A test is made to deter- 
mice if the bazner faa£ been oommandcd to be in a closed 
Slate aod to ddconice if a preselected time interval has 
elapsed following doeure of ihc barrier. When both of those 
conditions are present axtd the door is moved upward with- 
out authorizaticmac alarm stgnal is genented and cao sigoai 
the barrier drive to tpply a closing force. The timer prevents 
the barrier from being closed on a person or obstacle during 
oornaal opcxatio* aod prevents injury. An obstacle detector 
aiso prevents nawacted closure on an obstacle. 
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502 


21.04.02.01 
TURN OFF THE MOTOR AND 
KICK THE WATCHDOG 

£14 


i 

21 .04.02.02 

IF THE WORKLIGHf COMMAND 
FLAG IS SET TOGGLE THE 
WORKLIGHT 

516 


i 

21 .04.02.03 

IF A RADIO COMMAND OR A 
WALL CONTROL COMMAND FLAG 
IS SET SET STATE = 4 

518 


21 .04.02.04 


RETURN 



52Q 


Fig. 5 
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21.04.03.01 S22 
TURN ON THE LIGHT AND IF THE LIGHT OFF DELAY 40mS THEN 
TURN ON THE UP MOTOR OUTPUT, TURN OFF THE DOWN 
MOTOR OUTPUT. CLEAR THE HOLD DOOR CLOSED FLAG. 


21 .04.03.02 

AFTER A START UP DELAY OF 1 SECOND TEST THE RPM PERIOD 
AGAINST THE LOOKED UP UP FORCE AND IF THE RPM PERIOD 
IS TOO SHORT SET STATE AS STOPPED IN MID TRAVEL. 



NO 



21.04.03.04 

STATE = 6 


528 


f 

21.04.03.05 

RETURN 


530 


Fig. 6a 


'21.04.03.03 
IS 1 SECONDS TIMER >= 

1 SECOND AND RPM 

PERIOD <= FORCE LIMIT? 

522 

[yes 


21 .04.03.06 ^ 
test THE UP LIMIT INPUT IF 
LOW INCREASE THE 
DEBOUNCE OF HIGH 
DECREASE THE DEBOUNCE 




21 .04.03.08 


STATE = 2 



534 




21 .04.03.09 


RETURN 
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21.04.03.10 


540 


DECREMENT THE 27 SECOND 
TIMEOUT IF IT IS ZERO SET THE STATE 
AS STOPPED IN MID TRAVEL 


21.04.03.11 

TEST FOR EITHER A RADIO OR A WALL 
CONTROL COMMAND FLAG AND IF SO 
SET THE STATE AS STOPPED IN THE 
MID TRAVEL 


21.04.03.12 


RETURN 


Fig. 6b 
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±iD_ 



YES 


21 .04.04.04 552 
TURN OFF THE MOTOR AND 
KICK THE WATCHDOG 


21.04.04.05 
STATE = 4 
SET THE HOLD 
DOOR CLOSED 
FLAG 


21.04.04,06 553 
IF THE WORKLIGHT COMMAND FLAG 
IS SET TOGGLE THE WORKLIGHT 


21.04.04.07 55Q 
IF A RADIO COMMAND OR A WALL CONTROL 
COMMAND FLAG IS SET STATE = 1 


21 .04.04.08 

552 

RETURN 



Fig. 7 
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21.04.05.01 5ZQ 
TURN ON THE LIGHT AND IF THE LIGHT WAS OFF 
DELAY 40mS THEN TURN ON THE DOWN 
MOTOR OUTPUT AND KICK THE WATCHDOG. 



21.04.05.05 SZS 
TEST THE DOWN LIMIT INPUT IF LOW INCREASE 
THE DEBOUNCE IF HIGH DECREASE THE DEBOUNCE 


21.04.05.03 
STATE = 0 
574 


21.04.05.04 
RETURN 

576 



21 .04.05.07 
STATE = 5 

SS2 


21.04.05.09 
DECREMENT THE 27 SECOND 
TIMEOUT IF IT IS ZERO 
STATE = 0 


21.04.05.08 
RETURN 

584 


21.04.05.10 ^ 
TEST FOR EITHER A RADIO OR A 
WALL CONTROL COMMAND 
FLAG AND IF SO 
STATE = 6 


Fig. 8a 
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21.04.05.11 


590 


TEST THE PROTECTOR TIMER FOR > 
lOmS AND IF SO SET STATE = 0 
SET PROTECTOR FLAG 



Fig. 8b 
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21.04.06.01 
TEST THE RPM FORCED UP 
FLAG IF SET TURN OFF THE LIGHT 
TURN OFF THE MOTOR AND 
KICK THE WATCHDOG ano 


21.04.06.02 

IS THE WORKLIGHT COMMAND 
FLAG IS SET TOGGLE THE 

WORKLIGHT 

6O4 


21.04.06.03 
IF A RADIO COMMAND OR A 
WALL CONTROL COMMAND FLAG 
IS SET SET STATE = 4 


21 .04.06.04 


RETURN 



Fig. 9 
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21.04.07.01 
TURN OFF THE MOTOR AND 
KICK THE WATCHDOG 

S2Q. 


y 

21 .04.07.02 

DECREASE THE DELAY TIMER 
AND IF THE .5 SECONDS IS UP 
STATE = 1 


_±_ 

21.04.07.03 
IF A RADIO COMMAND OR A 
WALL CONTROL COMMAND FLAG 
IS SET 


STATE = 6 624 




21 .04.07.04 


RETURN 




Q2S. 


Fig. 10 
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No. 5,780,987 

Applicants: James J. FITZGIBBON' 
John V. KORAVEC 

Application No.: 09/614,222 

Filed: July 11, 2000 

Title: BARRIER OPERATOR 
O HAVING SYSTEM FOR 

J] DETECTING ATTEMPTED 

111 FORCED ENTRY 

Group 
j^Art Unit: 2837 

LH Examiner: 


CERTIFICATE OF HAILIMG 

I hereby certify that this paper is being 
deposited with the U.S. Postal Service as 
first-class msU m an envelope addressed to: 
Coftimissioner of Patents and Trademarks, 
Washington, O.C, 20231, . 


Registration No. 
Attorney for Applicants 


DECLARATION 


|:.^BOX REISSUE 

pHonorable Commissioner of Patents 
fj and Trademarks 

"'ATTENTION: Assistant Commissioner for Patents 
Washington, D,C. 20231 


Dear Sir: 

WE, JAMES J. FITZGIBBON and JOHN V, MORAVEC hereby declare 

that: 


1, Our respective residences, post office addresses and 
citizenship are as stated below next to our names. 

2. We verily believe ourselves to be the original, first 
and joint inventors of the subject matter which is claimed in the 
present application for which we solicit a reissue patent on the 
invention entitled "Barrier Operator Having System For Detecting 
Attempted Forced Entry." 
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Reissue of U.S, Patent 5,780,987 Appln. No. 09/614,222 
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3 . We have reviewed and understand the content of the 
Specification, including the Claims of the present application, 

4. The entire title of U,S. Letters Patent No. 5,780,987 
entitled "BARRIER OPERATOR HAVING SYSTEM FOR DETECTING ATTEMPTED 
FORCED ENTRY" (the '987 patent) which issued July 14, 1998, is 
vested in The Chamberlain Group, Inc. 

5. We acknowledge the duty to disclose information which is 
Q material to the examination of the present application in accordance 
{Hwith Title 37, Code of Federal Regulations, §1,56 (a). 

;jj 6. There is no foreign application for patent or inventor's 

Hi certificate on this invention filed by us or our legal repre- 
" -'sentatives or assigns having a filing date before that of any 
fy^application on which priority is claimed. 

f; 7. We believe the aforesaid Letters Patent 5,780,9 87 to be 
^|wholly or partly inoperative by reason of our claiming less than we 
";]had a right to claim in the patent. More specifically, the claims 
of Patent No. 5,780,987 are all dravn to apparatus and do not 
include method claims. Further, the independent claims are all 
unduly limited by including recitation of apparatus for sensing 
barrier motion and/ or a timer for enabling alarm signal generation. 

8 . The above errors arose without any deceptive intention on 
our part. 

9, All statements made herein of our own knowledge are true 
and all statements made on information and belief are believed to be 
true; and further these statements were made with the knowledge that 
willful false statements and the like so made are punishable by fine 
or imprisonment, or both, under Section lOOi of Title is of the 
United States Code and that such willful false statements may 
jeopardize the validity of the application or any patent issued 
thereon. 


226345 


2 - 



Attorney Docket No. 68895 


Full name of sole or one 
Joint inventor 

Inventor's Signature 

Date: 

Residence: 

Post Office Address: 
Citizenship: 

Full name of sole or one 
Joint inventor 
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Citizenship: 


Appln. No. 09/614,222 
Filed July 1 1,2000 


James J. Fitzgibbon 



Streamwood, Illinois 

(City and State for U,S. Residents: 
City and County for Others) 
1 0 Carol Ann Drive 
Streamwood, Illinois 60107 
U.S.A. 



Egg Harbor, Wisconsin 
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4906 Court Road 

Egg Harbor, Wl 54209 
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Sxaminer : 


CERTIFICATE OF MAILING 

I hereby certify that this paper is being 
deposited with the U.S. Postal Service as 
first-class mail in an envelope addressed to: 
Commissioner of Patents and Trademarks, 
Washington, D.C. 20231. ^ 
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Date iSenneth H> Samples ^ 

Registration ^Jo. 25,747 
Attorney for Applicants 


DECLARATION 


Sox REISSUE 

f&norable Commissioner of Patents 

and Trademarks 
ATTENTION: Assistant Commissioner for Patents 
Washington, D.C. 20231 


Dear Sir: 

WE, JAMES J, FITZGIBBON and JOHN V. MORAVEC hereby declare 

that : 

1. Our respective residences, post office addresses and 
citizenship are as stated below next to our names, 

2. We verily believe ourselves to be the original, first 
and joint inventors of the subject matter which is claimed in the 
present application for which we solicit a reissue patent on the 
invention entitled "Barrier Operator Having System For Detecting 
Attempted Forced Entry. " 
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3 . We have reviewed and understand the content of the 
Specification, including the Claims of the present application. 

4. The entire title of U.S. Letters Patent No. 5,780,987 
entitled "BARRIER OPERATOR HAVING SYSTEM FOR DETECTING ATTEMPTED 
FORCED ENTRY" (the '987 patent) which issued July 14, 1998, is 
vested in The Chamberlain Group, Inc. 

5. We acknowledge the duty to disclose information which is 
gaterial to the examination of the present application in accordance 
gith Title 37, Code of Federal Regulations, §1. 56(a). 

6. There is no foreign application for patent or inventor's 
Iprtificate on this invention filed by us or our legal repre- 
sentatives or assigns having a filing date before that of any 
^implication on which priority is claimed. 

7. We believe the aforesaid Letters Patent 5,780,987 to be 
giolly or partly inoperative by reason of our claiming less than we 
had a right to claim in the patent. More specifically, the claims 
of Patent No. 5,780,987 are all drawn to apparatus and do not 
include method claims. Further, the independent claims are all 
unduly limited by including recitation of apparatus for sensing 
barrier motion and/or a timer for enabling alarm signal generation. 

8. The above errors arose without any deceptive intention on 
our part . 

9. All statements made herein of our own knowledge are true 
and all statements made on information and belief are believed to be 
true; and further these statements were made with the knowledge that 
willful false statements and the like so made are punishable by fine 
or imprisonment, or both, under Section 1001 of Title 18 of the 
United States Code and that such willful false statements may 
jeopardize the validity of the application or any patent issued 
thereon. 
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Appln. No. 09/614,222 
Filed July 11, 2000 


Full name of sole or one 
joint inventor: 
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Date : 


Residence ; 


fSost Office Address 


iQitizenship ; 


James J. Fitzgibbon 


Batavia, Illinoip 


(City and State for U.S. Residents; 
City and Country for others) 
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Batavia, Illinois 60510 

U.S.A. 


Sfull name of sole or one 
□*oint inventor: 
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Date : 

Residence : 

Post Office Address: 
Citizenship : 


John V. Moravec 


Egg Harbor, Wisconsin 


(City and State for U.S. Residents; 
City and Country for others) ; 


4 90 6 Court Road 


Egg Harbor, WI 54209 
U.S.A. 
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Washington, D.C. 20231, on this date. 


10/26/2000 
Date 


Kenneth H. Samples 
Registration No, 25 , 747 
Attorney for AppLicant(s) 


RESPONSE TO NOTICE TO FILE MISSING PARTS 


Bo^ MISSING PARTS 

CSfrimissioner of Patents and Trademarks 
AljENTION: Assistant Commissioner for Patents 
Washington, D,C. 2 0231 

In response to the Notice to File Missing Parts dated July 27, 2 000 
enclosed are: 


(X) A copy of the Notice to File Missing Parts. 

(X) Executed Declarations for patent application, including Power 

of Attorney. 

(X) A Petition for one month Extension of Time with check in the 

amount of $110.00 to cover the Extension of Time fee under 37 
C.F.R.Sl. 17(a) (1) . 

( ) Assignment (s) of the invention to 

, and Recordation Form Cover Sheet - Patents Only - Form 


PTO-1595. 

( ) A check in the amount of $ to cover the fee for 

recording the assignment (s) . 
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(X) Fee Calculation: 

Fee Calculation For Claims As Filed 

{ ) Provisional Application Basic Fee $ 150.00 $ 

• Surcharge under 37 C.F.R. §1.16(1) $ 50,00 $ 

or 

(X) Non- Provisional Utility Application $710.00 5 710 . 00 

Basic Fee 

O • Independent 8 - 3 - 5 x $ 80.00 = $ 400 . 00 

"ti Claims 

• Total Claims 40 - 20 = 20 x $ 18.00 = $ 360.00 

• Fee for Multiply Dependent Claims x $270.00 = $ 

m • Surcharge under 37 C.F.R. §1.16 (e) x $130.00 = $ 130.00 
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U ( ) Design Application Basic Fee $320.00 $ 
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